diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2009-01-07 16:59:35 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2009-01-07 16:59:35 +0000 |
| commit | eb9c16e548379c3d83f621ef533d8d46c58101ab (patch) | |
| tree | 4007259966513798e256e9a2d871abcf7172c9d8 /lisp | |
| parent | ed039e6c297cdf9b4ac4d633ad0ec6db8e194bf5 (diff) | |
| download | emacs-eb9c16e548379c3d83f621ef533d8d46c58101ab.tar.gz | |
* add-log.el (change-log-search-tag-name): Reflow docstring.
(change-log-mode): Fix typo in docstring.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/add-log.el | 16 |
2 files changed, 11 insertions, 8 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4e0b914d657..e7622350fbf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-01-07 Juanma Barranquero <lekktu@gmail.com> + * add-log.el (change-log-search-tag-name): Reflow docstring. + (change-log-mode): Fix typo in docstring. + * international/mule.el (define-coding-system): Doc fix. 2009-01-07 Kenichi Handa <handa@m17n.org> diff --git a/lisp/add-log.el b/lisp/add-log.el index d7a00f090e9..00e31723765 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -162,7 +162,7 @@ use the file's name relative to the directory of the change log file." :group 'change-log) (defcustom change-log-version-number-regexp-list - (let ((re "\\([0-9]+\.[0-9.]+\\)")) + (let ((re "\\([0-9]+\.[0-9.]+\\)")) (list ;; (defconst ad-version "2.15" (concat "^(def[^ \t\n]+[ \t]+[^ \t\n][ \t]\"" re) @@ -305,7 +305,7 @@ Note: The search is conducted only within 10%, at the beginning of the file." (match-string-no-properties 2) ;; Look backwards for either a file name or the log entry start. (if (re-search-backward - (concat "\\(" change-log-start-entry-re + (concat "\\(" change-log-start-entry-re "\\)\\|\\(" change-log-file-names-re "\\)") nil t) (if (match-beginning 1) @@ -351,8 +351,8 @@ the tag was found." (defun change-log-search-tag-name (&optional at) "Search for a tag name near `point'. -Optional argument AT non-nil means search near buffer position -AT. Return value is a cons whose car is the string representing +Optional argument AT non-nil means search near buffer position AT. +Return value is a cons whose car is the string representing the tag and whose cdr is the position where the tag was found." (save-excursion (goto-char (setq at (or at (point)))) @@ -1007,12 +1007,12 @@ the change log file in another window." ;;;###autoload (define-derived-mode change-log-mode text-mode "Change Log" - "Major mode for editing change logs; like Indented Text Mode. + "Major mode for editing change logs; like Indented Text mode. Prevents numeric backups and sets `left-margin' to 8 and `fill-column' to 74. New log entries are usually made with \\[add-change-log-entry] or \\[add-change-log-entry-other-window]. Each entry behaves as a paragraph, and the entries for one day as a page. Runs `change-log-mode-hook'. -\\{change-log-mode-map}" +\n\\{change-log-mode-map}" (setq left-margin 8 fill-column 74 indent-tabs-mode t @@ -1045,9 +1045,9 @@ Runs `change-log-mode-hook'. '(change-log-font-lock-keywords t nil nil backward-paragraph)) (set (make-local-variable 'multi-isearch-next-buffer-function) 'change-log-next-buffer) - (set (make-local-variable 'beginning-of-defun-function) + (set (make-local-variable 'beginning-of-defun-function) 'change-log-beginning-of-defun) - (set (make-local-variable 'end-of-defun-function) + (set (make-local-variable 'end-of-defun-function) 'change-log-end-of-defun) ;; next-error function glue (setq next-error-function 'change-log-next-error) |