[Emacs-diffs] emacs/lisp ChangeLog help-fns.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/10/05 19:50:19

Modified files:
        lisp           : ChangeLog help-fns.el 

Log message:
        (describe-function-1): Don't burp is the function is not a symbol.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16366&r2=1.16367
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/help-fns.el?cvsroot=emacs&r1=1.143&r2=1.144

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16366
retrieving revision 1.16367
diff -u -b -r1.16366 -r1.16367
--- ChangeLog   5 Oct 2009 15:32:08 -0000       1.16366
+++ ChangeLog   5 Oct 2009 19:50:15 -0000       1.16367
@@ -1,3 +1,8 @@
+2009-10-05  Stefan Monnier  <address@hidden>
+
+       * help-fns.el (describe-function-1): Don't burp is the function is not
+       a symbol.
+
 2009-10-05  Juanma Barranquero  <address@hidden>
 
        * emacs-lisp/chart.el (chart-face-pixmap-list, chart-new-buffer, chart)
@@ -54,8 +59,8 @@
 2009-10-05  Dan Nicolaescu  <address@hidden>
 
        * vc-hg.el (log-view-vc-backend): Declare for compiler.
-       (vc-hg-outgoing-mode, vc-hg-incoming-mode): Set
-       log-view-vc-backend so that diff can work.
+       (vc-hg-outgoing-mode, vc-hg-incoming-mode):
+       Set log-view-vc-backend so that diff can work.
 
        * log-view.el (log-view-diff): Use vc-diff-internal instead of
        vc-version-diff.
@@ -74,8 +79,8 @@
        (copy-directory): Use it.  Remove parameter PRESERVE-UID-GID.
 
        * net/tramp.el (tramp-verbose): Fix docstring.
-       (tramp-methods): Add recursive option to `tramp-copy-args'.  Add
-       `tramp-copy-recursive'.  Valid for "rcp", "scp", "scp1", "scp2",
+       (tramp-methods): Add recursive option to `tramp-copy-args'.
+       Add `tramp-copy-recursive'.  Valid for "rcp", "scp", "scp1", "scp2",
        "scp1_old", "scp2_old", "rsync", "rsyncc".
        (tramp-default-method): Check also for `auth-source-user-or-password'.
        (tramp-file-name-handler-alist, tramp-file-name-for-operation):

Index: help-fns.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.143
retrieving revision 1.144
diff -u -b -r1.143 -r1.144
--- help-fns.el 2 Oct 2009 14:36:57 -0000       1.143
+++ help-fns.el 5 Oct 2009 19:50:19 -0000       1.144
@@ -457,7 +457,9 @@
              (terpri)))))
       ;; Note that list* etc do not get this property until
       ;; cl-hack-byte-compiler runs, after bytecomp is loaded.
-      (when (eq (get function 'byte-compile) 'cl-byte-compile-compiler-macro)
+      (when (and (symbolp function)
+                 (eq (get function 'byte-compile)
+                     'cl-byte-compile-compiler-macro))
        (princ "This function has a compiler macro")
        (let ((lib (get function 'compiler-macro-file)))
          (when (stringp lib)