(with-mode-local): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3cb2bf..56a62ad 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-11-03  Glenn Morris  <rgm@gnu.org>
 
+       * 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 62e8c89..c862faa 100644 (file)
--- 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)