diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-11-03 03:22:30 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-11-03 03:22:30 +0000 |
| commit | df8fff6c8af1159934fd41d2bae22257c03a0f97 (patch) | |
| tree | 8e156f7a22c647025e4a2a7e11cb6fa748c743fd /lisp/cedet/mode-local.el | |
| parent | 2aea6521e39d2838f6541afc06a90e1f8b655386 (diff) | |
| download | emacs-df8fff6c8af1159934fd41d2bae22257c03a0f97.tar.gz | |
(with-mode-local): Doc fix.
Diffstat (limited to 'lisp/cedet/mode-local.el')
| -rw-r--r-- | lisp/cedet/mode-local.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el index 62e8c89a0bd..c862faaef63 100644 --- a/lisp/cedet/mode-local.el +++ b/lisp/cedet/mode-local.el @@ -70,6 +70,9 @@ Return nil if MODE has no parent." (or (get mode 'mode-local-parent) (get mode 'derived-mode-parent))) +;; FIXME doc (and function name) seems wrong. +;; Return a list of MODE and all its parent modes, if any. +;; Lists parent modes first. (defun mode-local-equivalent-mode-p (mode) "Is the major-mode in the current buffer equivalent to a mode in MODES." (let ((modes nil)) @@ -377,7 +380,7 @@ To use the symbol MODE (quoted), use `with-mode-local'." The current mode bindings are saved, BODY is evaluated, and the saved bindings are restored, even in case of an abnormal exit. Value is what BODY returns. -This lis like `with-mode-local-symbol', except that MODE is quoted +This is like `with-mode-local-symbol', except that MODE is quoted and is note evaluated." `(with-mode-local-symbol ',mode ,@body)) (put 'with-mode-local 'lisp-indent-function 1) |