mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2009-10-05 19:50:15 +00:00
parent a8f316cab0
commit 828821887b
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-10-05 Stefan Monnier <monnier@iro.umontreal.ca>
* help-fns.el (describe-function-1): Don't burp is the function is not
a symbol.
2009-10-05 Juanma Barranquero <lekktu@gmail.com>
* emacs-lisp/chart.el (chart-face-pixmap-list, chart-new-buffer, chart)
@ -54,8 +59,8 @@
2009-10-05 Dan Nicolaescu <dann@ics.uci.edu>
* 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):

4
lisp/help-fns.el
View File

@ -457,7 +457,9 @@ suitable file is found, return nil."
(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)