Mercurial > emacs
changeset 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 | 73fe3355e195 |
| children | 8926d01558fa |
| files | lisp/ChangeLog lisp/emacs-lisp/lisp-mode.el |
| diffstat | 2 files changed, 15 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue May 25 20:12:00 2004 +0000 +++ b/lisp/ChangeLog Tue May 25 20:51:06 2004 +0000 @@ -1,3 +1,9 @@ +2004-05-25 Sam Steingold <sds@gnu.org> + + * emacs-lisp/lisp-mode.el (lisp-find-tag-default): New function: + strip the package prefix from the symbol name, if any. + Make it the `find-tag-default-function' for `lisp-mode'. + 2004-05-25 John Paul Wallington <jpw@gnu.org> * gs.el (gs-load-image): Use `set-process-query-on-exit-flag' @@ -2515,7 +2521,7 @@ 2004-03-28 Stefan Monnier <monnier@iro.umontreal.ca> * vc-hooks.el (vc-file-not-found-hook): Fix typo. - From lorentey@elte.hu (L,Bu(Brentey K,Ba(Broly). + From lorentey@elte.hu (L$,1 q(Brentey K,Aa(Broly). 2004-03-27 Luc Teirlinck <teirllm@auburn.edu>
--- 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)