Mercurial > emacs
comparison lisp/add-log.el @ 59996:aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Change development version from 21.3.50 to 22.0.50.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Wed, 09 Feb 2005 15:50:47 +0000 |
| parents | 448dec90812c |
| children | a974294c56fa 3ebd9bdb4fe5 |
comparison
equal
deleted
inserted
replaced
| 59995:8f4938738427 | 59996:aac0a33f5772 |
|---|---|
| 124 :type 'boolean | 124 :type 'boolean |
| 125 :group 'change-log) | 125 :group 'change-log) |
| 126 | 126 |
| 127 (defcustom add-log-always-start-new-record nil | 127 (defcustom add-log-always-start-new-record nil |
| 128 "*If non-nil, `add-change-log-entry' will always start a new record." | 128 "*If non-nil, `add-change-log-entry' will always start a new record." |
| 129 :version "21.4" | 129 :version "22.1" |
| 130 :type 'boolean | 130 :type 'boolean |
| 131 :group 'change-log) | 131 :group 'change-log) |
| 132 | 132 |
| 133 (defcustom add-log-buffer-file-name-function nil | 133 (defcustom add-log-buffer-file-name-function nil |
| 134 "*If non-nil, function to call to identify the full filename of a buffer. | 134 "*If non-nil, function to call to identify the full filename of a buffer. |
| 788 ;; If the defun we found ends before the desired position, | 788 ;; If the defun we found ends before the desired position, |
| 789 ;; see if there's a DEFUN construct | 789 ;; see if there's a DEFUN construct |
| 790 ;; between that end and the desired position. | 790 ;; between that end and the desired position. |
| 791 (when (save-excursion | 791 (when (save-excursion |
| 792 (and (> location (point)) | 792 (and (> location (point)) |
| 793 (re-search-forward "^DEFUN" | 793 (re-search-forward "^DEFUN" |
| 794 (save-excursion | 794 (save-excursion |
| 795 (goto-char location) | 795 (goto-char location) |
| 796 (line-end-position)) | 796 (line-end-position)) |
| 797 t) | 797 t) |
| 798 (re-search-forward "^{" nil t) | 798 (re-search-forward "^{" nil t) |