Commit 59de4ad0 authored by Sam Steingold's avatar Sam Steingold
Browse files

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

Make it the `find-tag-default-function' for `lisp-mode'.
parent 1a597f4f
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>
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment