From 59de4ad0fcace2f33f2fb5101f84bce6ea29aab2 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 25 May 2004 20:51:06 +0000 Subject: (lisp-find-tag-default): Strip the package prefix from the symbol name, if any. Make it the `find-tag-default-function' for `lisp-mode'. --- lisp/emacs-lisp/lisp-mode.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lisp/emacs-lisp/lisp-mode.el') 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) -- cgit v1.2.3