mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 15:00:34 -08:00
Code Issues Projects Releases Wiki Activity

(lisp-find-tag-default): Strip the package prefix from the symbol name, if any.

Browse source 
Make it the `find-tag-default-function' for `lisp-mode'.
This commit is contained in:
Sam Steingold 2004-05-25 20:51:06 +00:00
parent 1a597f4fff
commit 59de4ad0fc
2 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/lisp-mode.el
View file

@ -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)