/[emacs]/emacs/lisp/type-break.el
ViewVC logotype

Diff of /emacs/lisp/type-break.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by rms, Wed Oct 27 15:04:26 2004 UTC revision 1.34 by rms, Mon Dec 27 16:37:36 2004 UTC
# Line 399  problems." Line 399  problems."
399        (type-break-keystroke-reset)        (type-break-keystroke-reset)
400        (type-break-mode-line-countdown-or-break nil)        (type-break-mode-line-countdown-or-break nil)
401    
       (if (boundp 'save-some-buffers-always)  
           (add-to-list 'save-some-buffers-always  
                        (expand-file-name type-break-file-name)))  
   
402        (setq type-break-time-last-break (type-break-get-previous-time))        (setq type-break-time-last-break (type-break-get-previous-time))
403    
404        ;; schedule according to break time from session file        ;; schedule according to break time from session file
# Line 437  problems." Line 433  problems."
433        (do-auto-save)        (do-auto-save)
434        (with-current-buffer (find-file-noselect type-break-file-name        (with-current-buffer (find-file-noselect type-break-file-name
435                                                 'nowarn)                                                 'nowarn)
436          (set-buffer-modified-p nil)          (setq buffer-save-without-query t)
437            (set-buffer-modified-p nil)
438          (unlock-buffer)          (unlock-buffer)
439          (kill-this-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)))  
440        (and (interactive-p)        (and (interactive-p)
441             (message "Type Break mode is disabled")))))             (message "Type Break mode is disabled")))))
442    type-break-mode)    type-break-mode)
# Line 515  variable of the same name." Line 508  variable of the same name."
508  (defun type-break-file-keystroke-count ()  (defun type-break-file-keystroke-count ()
509    "File keystroke count in `type-break-file-name', unless the file is locked."    "File keystroke count in `type-break-file-name', unless the file is locked."
510    (if (not (stringp (file-locked-p type-break-file-name)))    (if (not (stringp (file-locked-p type-break-file-name)))
511        (with-current-buffer (find-file-noselect type-break-file-name        ;; Prevent deactivation of the mark in some other buffer.
512                                                 'nowarn)        (let (deactivate-mark)
513          (save-excursion          (with-current-buffer (find-file-noselect type-break-file-name
514            (let ((inhibit-read-only t))                                                   'nowarn)
515              (goto-char (point-min))            (save-excursion
516              (forward-line)              (let ((inhibit-read-only t))
517              (delete-region (point) (save-excursion (end-of-line) (point)))                (goto-char (point-min))
518              (insert (format "%s" type-break-keystroke-count))                (forward-line)
519              ;; file saving is left to auto-save                (delete-region (point) (save-excursion (end-of-line) (point)))
520              )))))                (insert (format "%s" type-break-keystroke-count))
521                  ;; file saving is left to auto-save
522                  ))))))
523    
524  (defun timep (time)  (defun timep (time)
525    "If TIME is in the format returned by `current-time' then    "If TIME is in the format returned by `current-time' then

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26