[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/cl-indent.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/06/22 06:27:04

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: cl-indent.el 

Log message:
        Remove leading "*" from defcustom docs.
        Refill.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15705&r2=1.15706
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/cl-indent.el?cvsroot=emacs&r1=1.56&r2=1.57

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15705
retrieving revision 1.15706
diff -u -b -r1.15705 -r1.15706
--- ChangeLog   22 Jun 2009 06:24:32 -0000      1.15705
+++ ChangeLog   22 Jun 2009 06:27:00 -0000      1.15706
@@ -1,5 +1,7 @@
 2009-06-22  Glenn Morris  <address@hidden>
 
+       * emacs-lisp/cl-indent.el: Remove leading "*" from defcustom docs.
+
        * emacs-lisp/lisp-mode.el (lisp-indent-offset): Fix safe-local-variable
        property.
        (lisp-indent-function): Make it a defcustom.

Index: emacs-lisp/cl-indent.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/cl-indent.el,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -b -r1.56 -r1.57
--- emacs-lisp/cl-indent.el     21 Jun 2009 01:16:59 -0000      1.56
+++ emacs-lisp/cl-indent.el     22 Jun 2009 06:27:04 -0000      1.57
@@ -53,20 +53,20 @@
 
 
 (defcustom lisp-indent-maximum-backtracking 3
-  "*Maximum depth to backtrack out from a sublist for structured indentation.
+  "Maximum depth to backtrack out from a sublist for structured indentation.
 If this variable is 0, no backtracking will occur and forms such as `flet'
 may not be correctly indented."
   :type 'integer
   :group 'lisp-indent)
 
 (defcustom lisp-tag-indentation 1
-  "*Indentation of tags relative to containing list.
+  "Indentation of tags relative to containing list.
 This variable is used by the function `lisp-indent-tagbody'."
   :type 'integer
   :group 'lisp-indent)
 
 (defcustom lisp-tag-body-indentation 3
-  "*Indentation of non-tagged lines relative to containing list.
+  "Indentation of non-tagged lines relative to containing list.
 This variable is used by the function `lisp-indent-tagbody' to indent normal
 lines (lines without tags).
 The indentation is relative to the indentation of the parenthesis enclosing
@@ -78,31 +78,30 @@
   :group 'lisp-indent)
 
 (defcustom lisp-backquote-indentation t
-  "*Whether or not to indent backquoted lists as code.
+  "Whether or not to indent backquoted lists as code.
 If nil, indent backquoted lists as data, i.e., like quoted lists."
   :type 'boolean
   :group 'lisp-indent)
 
 
 (defcustom lisp-loop-keyword-indentation 3
-  "*Indentation of loop keywords in extended loop forms."
+  "Indentation of loop keywords in extended loop forms."
   :type 'integer
   :group 'lisp-indent)
 
 
 (defcustom lisp-loop-forms-indentation 5
-  "*Indentation of forms in extended loop forms."
+  "Indentation of forms in extended loop forms."
   :type 'integer
   :group 'lisp-indent)
 
 
 (defcustom lisp-simple-loop-indentation 3
-  "*Indentation of forms in simple loop forms."
+  "Indentation of forms in simple loop forms."
   :type 'integer
   :group 'lisp-indent)
 
 
-(defvar lisp-indent-error-function)
 (defvar lisp-indent-defun-method '(4 &lambda &body)
   "Indentation for function with `common-lisp-indent-function' property 
`defun'.")
 
@@ -374,6 +373,9 @@
       (lisp-indent-259 method path state indent-point
                       sexp-column normal-indent))))
 
+;; Dynamically bound in common-lisp-indent-call-method.
+(defvar lisp-indent-error-function)
+
 (defun lisp-indent-report-bad-format (m)
   (error "%s has a badly-formed %s property: %s"
          ;; Love those free variable references!!
@@ -558,8 +560,11 @@
 
 (let ((l '((block 1)
            (case        (4 &rest (&whole 2 &rest 1)))
-           (ccase . case) (ecase . case)
-           (typecase . case) (etypecase . case) (ctypecase . case)
+           (ccase . case)
+           (ecase . case)
+           (typecase . case)
+           (etypecase . case)
+           (ctypecase . case)
            (catch 1)
            (cond        (&rest (&whole 2 &rest 1)))
            (defvar      (4 2 2))
@@ -574,7 +579,9 @@
            (defun       (4 &lambda &body))
            (define-setf-method . defun)
            (define-setf-expander . defun)
-           (defmacro . defun) (defsubst . defun) (deftype . defun)
+           (defmacro . defun)
+           (defsubst . defun)
+           (deftype . defun)
           (defmethod   lisp-indent-defmethod)
            (defpackage  (4 2))
            (defstruct   ((&whole 4 &rest (&whole 2 &rest 1))
@@ -589,7 +596,8 @@
            (flet        ((&whole 4 &rest (&whole 1 &lambda &body)) &body))
            (labels . flet)
            (macrolet . flet)
-           (generic-flet . flet) (generic-labels . flet)
+           (generic-flet . flet)
+           (generic-labels . flet)
            (handler-case (4 &rest (&whole 2 &lambda &body)))
            (restart-case . handler-case)
            ;; `else-body' style
@@ -600,7 +608,8 @@
            (let         ((&whole 4 &rest (&whole 1 1 2)) &body))
            (let* . let)
            (compiler-let . let) ;barf
-           (handler-bind . let) (restart-bind . let)
+           (handler-bind . let)
+           (restart-bind . let)
            (locally 1)
            ;(loop         lisp-indent-loop)
            (:method (&lambda &body)) ; in `defgeneric'