diff options
| author | Sam Steingold <sds@gnu.org> | 2004-05-25 20:51:06 +0000 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2004-05-25 20:51:06 +0000 |
| commit | 59de4ad0fcace2f33f2fb5101f84bce6ea29aab2 (patch) | |
| tree | e7f91bc02fc9964c09b65a749317375dba13c50f /lisp/emacs-lisp/lisp-mode.el | |
| parent | 1a597f4fffe691a158dabeefa98b5c314f633f94 (diff) | |
| download | emacs-59de4ad0fcace2f33f2fb5101f84bce6ea29aab2.tar.gz emacs-59de4ad0fcace2f33f2fb5101f84bce6ea29aab2.tar.bz2 emacs-59de4ad0fcace2f33f2fb5101f84bce6ea29aab2.zip | |
(lisp-find-tag-default): Strip the package prefix from the symbol name, if any.
Make it the `find-tag-default-function' for `lisp-mode'.
Diffstat (limited to 'lisp/emacs-lisp/lisp-mode.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 4057fe2968e..fcc6517b747 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -355,6 +355,14 @@ if that value is non-nil." (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) |