mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-20 18:17:20 +00:00
* emacs-lisp/lisp-mode.el (lisp-mode): Use define-derived-mode.
Set find-tag-default-function as a variable rather than a property.
This commit is contained in:
parent
45d6be0a8f
commit
f3a4700281
lisp
@ -1,5 +1,8 @@
|
||||
2010-05-01 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* emacs-lisp/lisp-mode.el (lisp-mode): Use define-derived-mode.
|
||||
Set find-tag-default-function as a variable rather than a property.
|
||||
|
||||
* minibuffer.el (tags-completion-at-point-function): Move to etags.el.
|
||||
* progmodes/etags.el (tags-completion-at-point-function):
|
||||
Remove left over interactive spec. Add autoloading stub.
|
||||
|
@ -466,7 +466,7 @@ if that value is non-nil."
|
||||
"Keymap for ordinary Lisp mode.
|
||||
All commands in `lisp-mode-shared-map' are inherited by this map.")
|
||||
|
||||
(defun lisp-mode ()
|
||||
(define-derived-mode lisp-mode nil "Lisp"
|
||||
"Major mode for editing Lisp code for Lisps other than GNU Emacs Lisp.
|
||||
Commands:
|
||||
Delete converts tabs to spaces as it moves back.
|
||||
@ -478,19 +478,12 @@ or to switch back to an existing one.
|
||||
|
||||
Entry to this mode calls the value of `lisp-mode-hook'
|
||||
if that value is non-nil."
|
||||
(interactive)
|
||||
(kill-all-local-variables)
|
||||
(use-local-map lisp-mode-map)
|
||||
(setq major-mode 'lisp-mode)
|
||||
(setq mode-name "Lisp")
|
||||
(lisp-mode-variables nil t)
|
||||
(set (make-local-variable 'find-tag-default-function) 'lisp-find-tag-default)
|
||||
(make-local-variable 'comment-start-skip)
|
||||
(setq comment-start-skip
|
||||
"\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\)\\(;+\\|#|\\) *")
|
||||
(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)
|
||||
(setq imenu-case-fold-search t))
|
||||
|
||||
(defun lisp-find-tag-default ()
|
||||
(let ((default (find-tag-default)))
|
||||
|
Loading…
Reference in New Issue
Block a user