mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(add-log-debugging): New variable.

Browse Source 
(add-change-log-entry): Set it.
This commit is contained in:
Richard M. Stallman 1998-05-04 00:13:13 +00:00
parent eee86eff46
commit 5522b032fc
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/add-log.el
View File

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