Mercurial > emacs
changeset 21926:76061e1fa136
(add-log-debugging): New variable.
(add-change-log-entry): Set it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 04 May 1998 00:13:13 +0000 |
| parents | 3e498c36ccce |
| children | 8332fee2c358 |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/add-log.el Sun May 03 15:57:33 1998 +0000 +++ b/lisp/add-log.el Mon May 04 00:13:13 1998 +0000 @@ -1,4 +1,4 @@ -;;; add-log.el --- change log maintenance commands for Emacs +;; add-log.el --- change log maintenance commands for Emacs ;; Copyright (C) 1985, 86, 88, 93, 94, 97, 1998 Free Software Foundation, Inc. @@ -151,6 +151,8 @@ It takes the same format as the TZ argument of `set-time-zone-rule'. If nil, use local time.") +(defvar add-log-debugging) + (defun add-log-iso8601-time-zone (time) (let* ((utc-offset (or (car (current-time-zone time)) 0)) (sign (if (< utc-offset 0) ?- ?+)) @@ -305,6 +307,8 @@ (substring buffer-file-name (match-end 0)) (file-name-nondirectory buffer-file-name)))) + (let ((buffer (find-buffer-visiting file-name))) + (setq add-log-debugging (list (gap-position) (gap-size)))) (if (and other-window (not (equal file-name buffer-file-name))) (find-file-other-window file-name) (find-file file-name))