[Emacs-diffs] /srv/bzr/emacs/trunk r111385: * lisp/subr.el (special-form-p): Don't signal errors on undef aliases.

[Stefan Monnier]

------------------------------------------------------------
revno: 111385
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2012-12-30 23:43:35 -0500
message:
  * lisp/subr.el (special-form-p): Don't signal errors on undef aliases.
modified:
  lisp/ChangeLog
  lisp/subr.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-31 02:58:57 +0000
+++ b/lisp/ChangeLog    2012-12-31 04:43:35 +0000
@@ -1,8 +1,12 @@
+2012-12-31  Stefan Monnier  <address@hidden>
+
+       * subr.el (special-form-p): Don't signal errors on undef aliases.
+
 2012-12-31  Jay Belanger  <address@hidden>
 
        * 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  <address@hidden>
 
-       * 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  <address@hidden>
 
@@ -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  <address@hidden>
 
@@ -46,8 +50,8 @@
 
 2012-12-29  Eli Zaretskii  <address@hidden>
 
-       * 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  <address@hidden>
 
-       * 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  <address@hidden>
 
@@ -131,8 +135,8 @@
 2012-12-27  Dmitry Gutov  <address@hidden>
 
        * progmodes/ruby-mode.el (ruby-indent-beg-re): Only allow "class",
-       "module" and "def" to have indentation before them.  Regression
-       from revno:109911 (see the new test).
+       "module" and "def" to have indentation before them.
+       Regression from revno:109911 (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  <address@hidden>  (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  <address@hidden>
 
@@ -157,8 +161,8 @@
 
 2012-12-26  Jürgen Hötzel  <address@hidden>
 
-       * 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  <address@hidden>

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2012-12-10 12:08:02 +0000
+++ b/lisp/subr.el      2012-12-31 04:43:35 +0000
@@ -2805,7 +2805,7 @@
 (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)