From df8fff6c8af1159934fd41d2bae22257c03a0f97 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 3 Nov 2009 03:22:30 +0000 Subject: [PATCH] (with-mode-local): Doc fix. --- lisp/ChangeLog | 2 ++ lisp/cedet/mode-local.el | 5 ++++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e3cb2bfc0f6..56a62adb847 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2009-11-03 Glenn Morris + * cedet/mode-local.el (with-mode-local): Doc fix. + * emacs-lisp/bytecomp.el (byte-compile-file-form-defvar) (byte-compile-file-form-define-abbrev-table) (byte-compile-file-form-custom-declare-variable) 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) -- 2.39.5