Mercurial > emacs
diff lisp/emacs-lisp/lisp-mode.el @ 55773:6010b740e1d0
(lisp-find-tag-default): Strip the package prefix from the symbol name, if any.
Make it the `find-tag-default-function' for `lisp-mode'.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Tue, 25 May 2004 20:51:06 +0000 |
| parents | ea0f46cadeb2 |
| children | a4c5317be59a |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Tue May 25 20:12:00 2004 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Tue May 25 20:51:06 2004 +0000 @@ -355,6 +355,14 @@ (setq imenu-case-fold-search t) (set-syntax-table lisp-mode-syntax-table) (run-mode-hooks 'lisp-mode-hook)) +(put 'lisp-mode 'find-tag-default-function 'lisp-find-tag-default) + +(defun lisp-find-tag-default () + (let ((default (find-tag-default))) + (when (stringp default) + (if (string-match ":+" default) + (substring default (match-end 0)) + default)))) ;; Used in old LispM code. (defalias 'common-lisp-mode 'lisp-mode)