procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2012-12-30 23:43:35 -05:00
parent fd1f1603a4
commit 96c052a5d1
2 changed files with 23 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
lisp/ChangeLog
View file

@ -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>

2
lisp/subr.el
View file

@ -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)