Skip to content

Instantly share code, notes, and snippets.

@g000001

g000001/gist:25243

Created November 15, 2008 13:15
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save g000001/25243 to your computer and use it in GitHub Desktop.
Save g000001/25243 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.el
(progn
(defun amop-lookup ()
(interactive)
(browse-url
(format "http://www.lisp.org/mop/dictionary.html#%s"
(let* ((name (thing-at-point 'symbol))
(pos (position ?: name)))
(if pos
(subseq name (1+ pos))
name)))))
(define-key slime-mode-map [(control ?c) (control ?d) ?m] 'amop-lookup))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment