diff options
| author | Juanma Barranquero | 2005-07-04 01:45:30 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-07-04 01:45:30 +0000 |
| commit | 7b2976021d870b1a189d98d73a8affadf1fcbf91 (patch) | |
| tree | 15a2db36541554c8ebfbed09742d8ec1e1d2116c | |
| parent | 403546cb0f95f9c59fe63d702703637cf237f321 (diff) | |
| download | emacs-7b2976021d870b1a189d98d73a8affadf1fcbf91.tar.gz emacs-7b2976021d870b1a189d98d73a8affadf1fcbf91.zip | |
(change-log): Finish `defgroup' description with period.
(add-change-log-entry): "?\ " -> "?\s".
| -rw-r--r-- | lisp/add-log.el | 8 |
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) |