Commit 2b88d62a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Trivial change.

parent 35310461
2008-01-25 Richard Stallman <rms@gnu.org>
* subr.el (add-hook): Implement `permanent-local-hook' property.
* loadhist.el (file-provides, file-requires): Push the filename right.
2008-01-25 Martin Rudalics <rudalics@gmx.at>
* emacs-lisp/find-func.el (find-library): Wrap search for
......
......@@ -2508,11 +2508,12 @@ They are not evaluated unless the assertion fails. If STRING is
omitted, a default message listing FORM itself is used."
(and (or (not (cl-compiling-file))
(< cl-optimize-speed 3) (= cl-optimize-safety 3))
(let ((sargs (and show-args (delq nil (mapcar
(function
(lambda (x)
(and (not (cl-const-expr-p x))
x))) (cdr form))))))
(let ((sargs (and show-args
(delq nil (mapcar
(lambda (x)
(unless (cl-const-expr-p x)
x))
(cdr form))))))
(list 'progn
(list 'or form
(if string
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment