aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2005-07-04 01:45:30 +0000
committerJuanma Barranquero2005-07-04 01:45:30 +0000
commit7b2976021d870b1a189d98d73a8affadf1fcbf91 (patch)
tree15a2db36541554c8ebfbed09742d8ec1e1d2116c
parent403546cb0f95f9c59fe63d702703637cf237f321 (diff)
downloademacs-7b2976021d870b1a189d98d73a8affadf1fcbf91.tar.gz
emacs-7b2976021d870b1a189d98d73a8affadf1fcbf91.zip
(change-log): Finish `defgroup' description with period.
(add-change-log-entry): "?\ " -> "?\s".
-rw-r--r--lisp/add-log.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el
index 03f44976760..72eda86f131 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -33,7 +33,7 @@
33 (require 'timezone)) 33 (require 'timezone))
34 34
35(defgroup change-log nil 35(defgroup change-log nil
36 "Change log maintenance" 36 "Change log maintenance."
37 :group 'tools 37 :group 'tools
38 :link '(custom-manual "(emacs)Change Log") 38 :link '(custom-manual "(emacs)Change Log")
39 :prefix "change-log-" 39 :prefix "change-log-"
@@ -607,13 +607,13 @@ non-nil, otherwise in local time."
607 (beginning-of-line 1) 607 (beginning-of-line 1)
608 (looking-at "\\s *\\(\\*\\s *\\)?$")) 608 (looking-at "\\s *\\(\\*\\s *\\)?$"))
609 (insert ": ") 609 (insert ": ")
610 (if version (insert version ?\ ))) 610 (if version (insert version ?\s)))
611 ;; Make it easy to get rid of the function name. 611 ;; Make it easy to get rid of the function name.
612 (undo-boundary) 612 (undo-boundary)
613 (unless (save-excursion 613 (unless (save-excursion
614 (beginning-of-line 1) 614 (beginning-of-line 1)
615 (looking-at "\\s *$")) 615 (looking-at "\\s *$"))
616 (insert ?\ )) 616 (insert ?\s))
617 ;; See if the prev function name has a message yet or not. 617 ;; See if the prev function name has a message yet or not.
618 ;; If not, merge the two items. 618 ;; If not, merge the two items.
619 (let ((pos (point-marker))) 619 (let ((pos (point-marker)))
@@ -633,7 +633,7 @@ non-nil, otherwise in local time."
633 (insert "(")) 633 (insert "("))
634 (set-marker pos nil)) 634 (set-marker pos nil))
635 (insert defun "): ") 635 (insert defun "): ")
636 (if version (insert version ?\ ))))) 636 (if version (insert version ?\s)))))
637 637
638;;;###autoload 638;;;###autoload
639(defun add-change-log-entry-other-window (&optional whoami file-name) 639(defun add-change-log-entry-other-window (&optional whoami file-name)