Commit 5522b032 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(add-log-debugging): New variable.

(add-change-log-entry): Set it.
parent eee86eff
;;; 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 @@ this variable."
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 @@ non-nil, otherwise in local time."
(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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment