Commit e7c8c428 authored by Sam Steingold's avatar Sam Steingold
Browse files

Indent properly `generic-flet', `generic-labels', `with-accessors',

`with-condition-restarts'.
parent 68d2f12f
2001-11-12 Sam Steingold <sds@gnu.org>
* emacs-lisp/cl-indent.el (toplevel): Indent properly
`generic-flet', `generic-labels', `with-accessors',
`with-condition-restarts'.
2001-11-12 Richard M. Stallman <rms@gnu.org> 2001-11-12 Richard M. Stallman <rms@gnu.org>
   
* dired.el: Many trivial doc fixes. * dired.el: Many trivial doc fixes.
(dired-get-file-for-visit): New function. (dired-get-file-for-visit): New function.
(dired-find-alternate-file, dired-mouse-find-file-other-window): (dired-find-alternate-file, dired-mouse-find-file-other-window):
(dired-view-file, dired-find-file-other-window, dired-display-file): (dired-view-file, dired-find-file-other-window, dired-display-file):
(dired-find-file): Use dired-get-file-for-visit. (dired-find-file): Use dired-get-file-for-visit.
   
2001-11-12 Alex Schroeder <kensanata@yahoo.com> 2001-11-12 Alex Schroeder <kensanata@yahoo.com>
   
...@@ -43,10 +49,10 @@ ...@@ -43,10 +49,10 @@
* calendar/solar.el (solar-sunrise-and-sunset): * calendar/solar.el (solar-sunrise-and-sunset):
Exchange the two extreme values of day-length. Exchange the two extreme values of day-length.
   
* progmodes/sh-script.el (sh-must-be-shell-mode): * progmodes/sh-script.el (sh-must-be-shell-mode):
Allow modes derived from sh-mode. Allow modes derived from sh-mode.
   
* emacs-lisp/checkdoc.el (checkdoc-file-comments-engine): * emacs-lisp/checkdoc.el (checkdoc-file-comments-engine):
Turn off error in some re-search-forward calls. Turn off error in some re-search-forward calls.
   
* replace.el (query-replace-skip-read-only): New variable. * replace.el (query-replace-skip-read-only): New variable.
......
...@@ -355,7 +355,7 @@ by `lisp-body-indent'." ...@@ -355,7 +355,7 @@ by `lisp-body-indent'."
(&whole nil &rest 1)) (&whole nil &rest 1))
path state indent-point sexp-column normal-indent))) path state indent-point sexp-column normal-indent)))
(defun lisp-indent-defmethod (path state indent-point sexp-column (defun lisp-indent-defmethod (path state indent-point sexp-column
normal-indent) normal-indent)
"Indentation function defmethod." "Indentation function defmethod."
(lisp-indent-259 (if (save-excursion (goto-char (elt state 1)) (lisp-indent-259 (if (save-excursion (goto-char (elt state 1))
...@@ -419,6 +419,7 @@ by `lisp-body-indent'." ...@@ -419,6 +419,7 @@ by `lisp-body-indent'."
(flet ((&whole 4 &rest (&whole 1 &lambda &body)) &body)) (flet ((&whole 4 &rest (&whole 1 &lambda &body)) &body))
(labels . flet) (labels . flet)
(macrolet . flet) (macrolet . flet)
(generic-flet . flet) (generic-labels . flet)
(handler-case (4 &rest (&whole 2 &lambda &body))) (handler-case (4 &rest (&whole 2 &lambda &body)))
(restart-case . handler-case) (restart-case . handler-case)
;; `else-body' style ;; `else-body' style
...@@ -455,15 +456,16 @@ by `lisp-body-indent'." ...@@ -455,15 +456,16 @@ by `lisp-body-indent'."
(unless 1) (unless 1)
(unwind-protect (5 &body)) (unwind-protect (5 &body))
(when 1) (when 1)
(with-accessors . multiple-value-bind)
(with-condition-restarts . multiple-value-bind)
(with-output-to-string (4 2)) (with-output-to-string (4 2))
(with-slots . multiple-value-bind) (with-slots . multiple-value-bind)
(with-standard-io-syntax (2))))) (with-standard-io-syntax (2)))))
(while l (dolist (el l)
(put (caar l) 'common-lisp-indent-function (put (car el) 'common-lisp-indent-function
(if (symbolp (cdar l)) (if (symbolp (cdr el))
(get (cdar l) 'common-lisp-indent-function) (get (cdr el) 'common-lisp-indent-function)
(car (cdar l)))) (car (cdr el))))))
(setq l (cdr l))))
;(defun foo (x) ;(defun foo (x)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment