* lisp/subr.el (special-form-p): Don't signal errors on undef aliases.

2 files changed, 23 insertions, 19 deletions

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  <monnier@iro.umontreal.ca>
+
+        * subr.el (special-form-p): Don't signal errors on undef aliases.
+
 2012-12-31  Jay Belanger  <jay.p.belanger@gmail.com>
 
         * 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  <mark.lillibridge@hp.com>
 
-        * 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  <michael.albinus@gmx.de>
 
@@ -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  <michael.albinus@gmx.de>
 
@@ -46,8 +50,8 @@
 
 2012-12-29  Eli Zaretskii  <eliz@gnu.org>
 
-        * 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  <rudalics@gmx.at>
 
-        * 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  <schwab@linux-m68k.org>
 
@@ -131,8 +135,8 @@
 2012-12-27  Dmitry Gutov  <dgutov@yandex.ru>
 
         * 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  <spinuvit@gmail.com>  (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  <dgutov@yandex.ru>
 
@@ -157,8 +161,8 @@
 
 2012-12-26  Jürgen Hötzel  <juergen@archlinux.org>
 
-        * 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  <cyd@gnu.org>
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)