From: Sam Steingold <sds@gnu.org>
Date: Tue, 25 May 2004 20:51:06 +0000 (+0000)
Subject: (lisp-find-tag-default): Strip the package prefix from the symbol name, if any.
X-Git-Tag: ttn-vms-21-2-B4~6066
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59de4ad0fcace2f33f2fb5101f84bce6ea29aab2;p=emacs.git

(lisp-find-tag-default): Strip the package prefix from the symbol name, if any.
Make it the `find-tag-default-function' for `lisp-mode'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b319197bac8..f264c04fca3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
 
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)