(describe-project): New function, on C-h C-p.

[bpt/emacs.git] / lisp / apropos.el

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 161934f..f147b0b 100644 (file)
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -196,7 +196,7 @@ Returns list of symbols and documentation found."
                                 (string-lessp (car a) (car b))))))
   (let ((p matches)
        (old-buffer (current-buffer))
-       item keys-done symbol)
+       item keys-done symbol tem)
     (save-excursion
       (set-buffer standard-output)
       (or matches (princ "No matches found."))
@@ -329,10 +329,10 @@ Will return nil instead."
     (setq function (if (fboundp function)
                       (symbol-function function)
                     0)))
+  (if (eq (car-safe function) 'macro)
+      (setq function (cdr function)))
   (if (not (consp function))
       nil
-    (if (eq (car function) 'macro)
-       (setq function (cdr function)))
     (if (not (memq (car function) '(lambda autoload)))
        nil
       (setq function (nth 2 function))