From: Stefan Monnier Date: Mon, 31 Dec 2012 04:43:35 +0000 (-0500) Subject: * lisp/subr.el (special-form-p): Don't signal errors on undef aliases. X-Git-Tag: emacs-24.3.90~173^2~7^2~437 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96c052a5d18024d3ccbd9509631a70314397c050;p=emacs.git * lisp/subr.el (special-form-p): Don't signal errors on undef aliases. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4887c1bfcda..06a5bd7bff4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,12 @@ +2012-12-31 Stefan Monnier + + * subr.el (special-form-p): Don't signal errors on undef aliases. + 2012-12-31 Jay Belanger * calc/calc-forms.el (math-parse-date): Try using - `math-parse-iso-date' when it looks like it might be needed. Allow - times of 24:00. + `math-parse-iso-date' when it looks like it might be needed. + Allow times of 24:00. (math-parse-date-validate, math-parse-iso-date-validate): Allow times of 24:00. @@ -25,8 +29,8 @@ 2012-12-30 Mark Lillibridge - * mail/rmailmm.el (rmail-insert-mime-forwarded-message): Insert - the undecoded text of the message being forwarded. (Bug#9521) + * mail/rmailmm.el (rmail-insert-mime-forwarded-message): + Insert the undecoded text of the message being forwarded. (Bug#9521) 2012-12-30 Michael Albinus @@ -36,8 +40,8 @@ * net/tramp-sh.el (tramp-sh-handle-set-file-selinux-context): Return `t' on success. - * net/tramp-smb.el (tramp-smb-file-name-handler-alist): Add - handler for `set-file-selinux-context'. + * net/tramp-smb.el (tramp-smb-file-name-handler-alist): + Add handler for `set-file-selinux-context'. 2012-12-29 Michael Albinus @@ -46,8 +50,8 @@ 2012-12-29 Eli Zaretskii - * files.el (backup-buffer-copy, basic-save-buffer-2): If - set-file-extended-attributes fails, fall back on set-file-modes + * files.el (backup-buffer-copy, basic-save-buffer-2): + If set-file-extended-attributes fails, fall back on set-file-modes instead of signaling an error. (Bug#13298) (basic-save-buffer): Likewise. @@ -75,8 +79,8 @@ 2012-12-28 Martin Rudalics - * mail/rmail.el (rmail-maybe-display-summary): Rewrite - (Bug#13066). + * mail/rmail.el (rmail-maybe-display-summary): + Rewrite (Bug#13066). 2012-12-28 Andreas Schwab @@ -131,8 +135,8 @@ 2012-12-27 Dmitry Gutov * progmodes/ruby-mode.el (ruby-indent-beg-re): Only allow "class", - "module" and "def" to have indentation before them. Regression - from 2012-09-07T04:15:56Z!dgutov@yandex.ru (see the new test). + "module" and "def" to have indentation before them. + Regression from 2012-09-07T04:15:56Z!dgutov@yandex.ru (see the new test). * progmodes/ruby-mode.el: Bump the version to 1.2 (Bug#13200). @@ -145,8 +149,8 @@ 2012-12-27 Vitalie Spinu (tiny change) * comint.el (comint-adjust-window-point): New function. - (comint-postoutput-scroll-to-bottom): Call - comint-adjust-window-point (Bug#13248). + (comint-postoutput-scroll-to-bottom): + Call comint-adjust-window-point (Bug#13248). 2012-12-26 Dmitry Gutov @@ -157,8 +161,8 @@ 2012-12-26 Jürgen Hötzel - * net/tramp-adb.el (tramp-adb-get-ls-command): New defun. Suppress - coloring, if possible (required for BusyBox based systems like + * net/tramp-adb.el (tramp-adb-get-ls-command): New defun. + Suppress coloring, if possible (required for BusyBox based systems like CynagenMod). (tramp-adb-handle-file-attributes) (tramp-adb-handle-insert-directory) @@ -187,8 +191,8 @@ * notifications.el (notifications-notify): Protect body with `with-demoted-errors'. - * net/tramp-adb.el (tramp-adb-maybe-open-connection): Check - properties of remote device. Restart connection, if there is a + * net/tramp-adb.el (tramp-adb-maybe-open-connection): + Check properties of remote device. Restart connection, if there is a change. 2012-12-21 Chong Yidong diff --git a/lisp/subr.el b/lisp/subr.el index 1e509036cd1..111fb6201b4 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2805,7 +2805,7 @@ Otherwise, return nil." (defun special-form-p (object) "Non-nil if and only if OBJECT is a special form." (if (and (symbolp object) (fboundp object)) - (setq object (indirect-function object))) + (setq object (indirect-function object t))) (and (subrp object) (eq (cdr (subr-arity object)) 'unevalled))) (defun field-at-pos (pos)