aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/emacs-lisp/byte-run.el3
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4f5efd371e..66051898dd3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
12013-11-04 Stefan Monnier <monnier@iro.umontreal.ca> 12013-11-04 Stefan Monnier <monnier@iro.umontreal.ca>
2 2
3 * emacs-lisp/byte-run.el (defmacro, defun): Set their `indent' property.
4
3 * electric.el (electric-indent-post-self-insert-function): 5 * electric.el (electric-indent-post-self-insert-function):
4 Only delete trailing whitepsace if it is indeed trailing (bug#15767). 6 Only delete trailing whitepsace if it is indeed trailing (bug#15767).
5 7
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 0bb04950dfd..7ec24cc2aad 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -118,6 +118,7 @@ the FUN corresponding to PROP is called with the function name
118and the VALUES and should return the code to use to set this property.") 118and the VALUES and should return the code to use to set this property.")
119 119
120(put 'defmacro 'doc-string-elt 3) 120(put 'defmacro 'doc-string-elt 3)
121(put 'defmacro 'lisp-indent-function 2)
121(defalias 'defmacro 122(defalias 'defmacro
122 (cons 123 (cons
123 'macro 124 'macro
@@ -179,7 +180,7 @@ The return value is undefined.
179 ;; (defun foo (arg) (toto) nil) 180 ;; (defun foo (arg) (toto) nil)
180 ;; from 181 ;; from
181 ;; (defun foo (arg) (toto)). 182 ;; (defun foo (arg) (toto)).
182 (declare (doc-string 3)) 183 (declare (doc-string 3) (indent 2))
183 (let ((decls (cond 184 (let ((decls (cond
184 ((eq (car-safe docstring) 'declare) 185 ((eq (car-safe docstring) 'declare)
185 (prog1 (cdr docstring) (setq docstring nil))) 186 (prog1 (cdr docstring) (setq docstring nil)))