/[emacs]/emacs/lisp/emacs-lisp/cl-indent.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/cl-indent.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by gerd, Wed Aug 15 11:56:38 2001 UTC revision 1.32 by sds, Mon Nov 12 19:58:33 2001 UTC
# Line 355  by `lisp-body-indent'." Line 355  by `lisp-body-indent'."
355                 (&whole nil &rest 1))                 (&whole nil &rest 1))
356               path state indent-point sexp-column normal-indent)))               path state indent-point sexp-column normal-indent)))
357    
358  (defun lisp-indent-defmethod (path state indent-point sexp-column  (defun lisp-indent-defmethod (path state indent-point sexp-column
359                                     normal-indent)                                     normal-indent)
360    "Indentation function defmethod."    "Indentation function defmethod."
361    (lisp-indent-259 (if (save-excursion (goto-char (elt state 1))    (lisp-indent-259 (if (save-excursion (goto-char (elt state 1))
# Line 419  by `lisp-body-indent'." Line 419  by `lisp-body-indent'."
419             (flet        ((&whole 4 &rest (&whole 1 &lambda &body)) &body))             (flet        ((&whole 4 &rest (&whole 1 &lambda &body)) &body))
420             (labels . flet)             (labels . flet)
421             (macrolet . flet)             (macrolet . flet)
422               (generic-flet . flet) (generic-labels . flet)
423             (handler-case (4 &rest (&whole 2 &lambda &body)))             (handler-case (4 &rest (&whole 2 &lambda &body)))
424             (restart-case . handler-case)             (restart-case . handler-case)
425             ;; `else-body' style             ;; `else-body' style
# Line 455  by `lisp-body-indent'." Line 456  by `lisp-body-indent'."
456             (unless 1)             (unless 1)
457             (unwind-protect (5 &body))             (unwind-protect (5 &body))
458             (when 1)             (when 1)
459               (with-accessors . multiple-value-bind)
460               (with-condition-restarts . multiple-value-bind)
461             (with-output-to-string (4 2))             (with-output-to-string (4 2))
462             (with-slots . multiple-value-bind)             (with-slots . multiple-value-bind)
463             (with-standard-io-syntax (2)))))             (with-standard-io-syntax (2)))))
464    (while l    (dolist (el l)
465      (put (caar l) 'common-lisp-indent-function      (put (car el) 'common-lisp-indent-function
466           (if (symbolp (cdar l))           (if (symbolp (cdr el))
467               (get (cdar l) 'common-lisp-indent-function)               (get (cdr el) 'common-lisp-indent-function)
468               (car (cdar l))))               (car (cdr el))))))
     (setq l (cdr l))))  
469    
470    
471  ;(defun foo (x)  ;(defun foo (x)

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26