mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -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> 2004-05-25 John Paul Wallington <jpw@gnu.org>
* gs.el (gs-load-image): Use `set-process-query-on-exit-flag' * 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> 2004-03-28 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-hooks.el (vc-file-not-found-hook): Fix typo. * 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> 2004-03-27 Luc Teirlinck <teirllm@auburn.edu>

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) (setq imenu-case-fold-search t)
(set-syntax-table lisp-mode-syntax-table) (set-syntax-table lisp-mode-syntax-table)
(run-mode-hooks 'lisp-mode-hook)) (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. ;; Used in old LispM code.
(defalias 'common-lisp-mode 'lisp-mode) (defalias 'common-lisp-mode 'lisp-mode)