emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/type-break.el


From: Richard M . Stallman
Subject: [Emacs-diffs] Changes to emacs/lisp/type-break.el
Date: Mon, 27 Dec 2004 12:05:24 -0500

Index: emacs/lisp/type-break.el
diff -c emacs/lisp/type-break.el:1.33 emacs/lisp/type-break.el:1.34
*** emacs/lisp/type-break.el:1.33       Wed Oct 27 15:04:26 2004
--- emacs/lisp/type-break.el    Mon Dec 27 16:37:36 2004
***************
*** 399,408 ****
        (type-break-keystroke-reset)
        (type-break-mode-line-countdown-or-break nil)
  
-       (if (boundp 'save-some-buffers-always)
-           (add-to-list 'save-some-buffers-always
-                        (expand-file-name type-break-file-name)))
- 
        (setq type-break-time-last-break (type-break-get-previous-time))
  
        ;; schedule according to break time from session file
--- 399,404 ----
***************
*** 437,449 ****
        (do-auto-save)
        (with-current-buffer (find-file-noselect type-break-file-name
                                                 'nowarn)
!         (set-buffer-modified-p nil)
          (unlock-buffer)
          (kill-this-buffer))
-       (if (boundp 'save-some-buffers-always)
-           (setq save-some-buffers-always
-                 (remove (expand-file-name type-break-file-name)
-                         save-some-buffers-always)))
        (and (interactive-p)
             (message "Type Break mode is disabled")))))
    type-break-mode)
--- 433,442 ----
        (do-auto-save)
        (with-current-buffer (find-file-noselect type-break-file-name
                                                 'nowarn)
!       (setq buffer-save-without-query t)
!       (set-buffer-modified-p nil)
          (unlock-buffer)
          (kill-this-buffer))
        (and (interactive-p)
             (message "Type Break mode is disabled")))))
    type-break-mode)
***************
*** 515,530 ****
  (defun type-break-file-keystroke-count ()
    "File keystroke count in `type-break-file-name', unless the file is locked."
    (if (not (stringp (file-locked-p type-break-file-name)))
!       (with-current-buffer (find-file-noselect type-break-file-name
!                                                'nowarn)
!         (save-excursion
!           (let ((inhibit-read-only t))
!             (goto-char (point-min))
!             (forward-line)
!             (delete-region (point) (save-excursion (end-of-line) (point)))
!             (insert (format "%s" type-break-keystroke-count))
!             ;; file saving is left to auto-save
!             )))))
  
  (defun timep (time)
    "If TIME is in the format returned by `current-time' then
--- 508,525 ----
  (defun type-break-file-keystroke-count ()
    "File keystroke count in `type-break-file-name', unless the file is locked."
    (if (not (stringp (file-locked-p type-break-file-name)))
!       ;; Prevent deactivation of the mark in some other buffer.
!       (let (deactivate-mark)
!       (with-current-buffer (find-file-noselect type-break-file-name
!                                                'nowarn)
!         (save-excursion
!           (let ((inhibit-read-only t))
!             (goto-char (point-min))
!             (forward-line)
!             (delete-region (point) (save-excursion (end-of-line) (point)))
!             (insert (format "%s" type-break-keystroke-count))
!             ;; file saving is left to auto-save
!             ))))))
  
  (defun timep (time)
    "If TIME is in the format returned by `current-time' then




reply via email to

[Prev in Thread] Current Thread [Next in Thread]