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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4887c1b..06a5bd7 100644 (file)
--- 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 1e50903..111fb62 100644 (file)
--- 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)