Вы не можете выбрать более 25 тем
Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
31 строки
1.2 KiB
31 строки
1.2 KiB
(require 'slime)
|
|
(require 'cl-lib)
|
|
|
|
(define-slime-contrib slime-mdot-fu
|
|
"Making M-. work on local functions."
|
|
(:authors "Tobias C. Rittweiler <tcr@freebits.de>")
|
|
(:license "GPL")
|
|
(:slime-dependencies slime-enclosing-context)
|
|
(:on-load
|
|
(add-hook 'slime-edit-definition-hooks 'slime-edit-local-definition))
|
|
(:on-unload
|
|
(remove-hook 'slime-edit-definition-hooks 'slime-edit-local-definition)))
|
|
|
|
|
|
(defun slime-edit-local-definition (name &optional where)
|
|
"Like `slime-edit-definition', but tries to find the definition
|
|
in a local function binding near point."
|
|
(interactive (list (slime-read-symbol-name "Name: ")))
|
|
(cl-multiple-value-bind (binding-name point)
|
|
(cl-multiple-value-call #'cl-some #'(lambda (binding-name point)
|
|
(when (cl-equalp binding-name name)
|
|
(cl-values binding-name point)))
|
|
(slime-enclosing-bound-names))
|
|
(when (and binding-name point)
|
|
(slime-edit-definition-cont
|
|
`((,binding-name
|
|
,(make-slime-buffer-location (buffer-name (current-buffer)) point)))
|
|
name
|
|
where))))
|
|
|
|
(provide 'slime-mdot-fu)
|