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))