From 3c0ed7cec3830e853fcd1bfe15198107356d0e0b Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 17 Feb 2000 20:45:37 +0000 Subject: [PATCH] (lisp-indent-259): Indentation fix. --- lisp/ChangeLog | 2 ++ lisp/emacs-lisp/cl-indent.el | 9 +++++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e57e434a901..a05a68d5090 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2000-02-17 Gerd Moellmann + * emacs-lisp/cl-indent.el (lisp-indent-259): Indentation fix. + * progmodes/pascal.el (pascal-mode-syntax-table): Change syntax of `*' to handle `(* ... *)' comments. diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el index 11416ae532e..2b5ef3420c4 100644 --- a/lisp/emacs-lisp/cl-indent.el +++ b/lisp/emacs-lisp/cl-indent.el @@ -241,15 +241,16 @@ by `lisp-body-indent'." (setq tem (car method)) (or (eq tem 'nil) ;default indentation - (eq tem '&lambda) ;lambda list + (eq tem '&lambda) ;lambda list (and (eq tem '&body) (null (cdr method))) (and (eq tem '&rest) - (consp (cdr method)) (null (cddr method))) + (consp (cdr method)) + (null (cddr method))) (integerp tem) ;explicit indentation specified (and (consp tem) ;destructuring (eq (car tem) '&whole) - (or (symbolp (cadr tem)) - (integerp (cadr tem)))) + (or (symbolp (cadr tem)) + (integerp (cadr tem)))) (and (symbolp tem) ;a function to call to do the work. (null (cdr method))) (lisp-indent-report-bad-format method)) -- 2.39.5