Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 55773:6010b740e1d0
(lisp-find-tag-default): Strip the package prefix from the symbol name, if any.
Make it the `find-tag-default-function' for `lisp-mode'.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Tue, 25 May 2004 20:51:06 +0000 |
| parents | ea0f46cadeb2 |
| children | a4c5317be59a |
comparison
equal
deleted
inserted
replaced
| 55772:73fe3355e195 | 55773:6010b740e1d0 |
|---|---|
| 353 (make-local-variable 'font-lock-keywords-case-fold-search) | 353 (make-local-variable 'font-lock-keywords-case-fold-search) |
| 354 (setq font-lock-keywords-case-fold-search t) | 354 (setq font-lock-keywords-case-fold-search t) |
| 355 (setq imenu-case-fold-search t) | 355 (setq imenu-case-fold-search t) |
| 356 (set-syntax-table lisp-mode-syntax-table) | 356 (set-syntax-table lisp-mode-syntax-table) |
| 357 (run-mode-hooks 'lisp-mode-hook)) | 357 (run-mode-hooks 'lisp-mode-hook)) |
| 358 (put 'lisp-mode 'find-tag-default-function 'lisp-find-tag-default) | |
| 359 | |
| 360 (defun lisp-find-tag-default () | |
| 361 (let ((default (find-tag-default))) | |
| 362 (when (stringp default) | |
| 363 (if (string-match ":+" default) | |
| 364 (substring default (match-end 0)) | |
| 365 default)))) | |
| 358 | 366 |
| 359 ;; Used in old LispM code. | 367 ;; Used in old LispM code. |
| 360 (defalias 'common-lisp-mode 'lisp-mode) | 368 (defalias 'common-lisp-mode 'lisp-mode) |
| 361 | 369 |
| 362 ;; This will do unless inf-lisp.el is loaded. | 370 ;; This will do unless inf-lisp.el is loaded. |