/[emacs]/emacs/lisp/add-log.el
ViewVC logotype

Diff of /emacs/lisp/add-log.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.134 by pj, Mon Aug 6 10:12:17 2001 UTC revision 1.134.4.1 by lektu, Sat Apr 12 19:43:07 2003 UTC
# Line 441  non-nil, otherwise in local time." Line 441  non-nil, otherwise in local time."
441                       (or file-name (find-change-log file-name buffer-file))))                       (or file-name (find-change-log file-name buffer-file))))
442           ;; Set ENTRY to the file name to use in the new entry.           ;; Set ENTRY to the file name to use in the new entry.
443           (entry (add-log-file-name buffer-file file-name))           (entry (add-log-file-name buffer-file file-name))
444             ;; Get copies from this buffer
445             (full-name add-log-full-name)
446             (mailing-address add-log-mailing-address)
447           bound)           bound)
448    
449      (if (or (and other-window (not (equal file-name buffer-file-name)))      (if (or (and other-window (not (equal file-name buffer-file-name)))
# Line 452  non-nil, otherwise in local time." Line 455  non-nil, otherwise in local time."
455      (undo-boundary)      (undo-boundary)
456      (goto-char (point-min))      (goto-char (point-min))
457      (let ((new-entry (concat (funcall add-log-time-format)      (let ((new-entry (concat (funcall add-log-time-format)
458                               "  " add-log-full-name                               "  " full-name
459                               "  <" add-log-mailing-address ">")))                               "  <" mailing-address ">")))
460        (if (looking-at (regexp-quote new-entry))        (if (looking-at (regexp-quote new-entry))
461            (forward-line 1)            (forward-line 1)
462          (insert new-entry "\n\n")))          (insert new-entry "\n\n")))

Legend:
Removed from v.1.134  
changed lines
  Added in v.1.134.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26