/[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.34 by rms, Mon Dec 27 16:37:36 2004 UTC revision 1.35 by rms, Wed Jan 12 04:24:20 2005 UTC
# Line 389  problems." Line 389  problems."
389        (and (interactive-p)        (and (interactive-p)
390             (message "Type Break mode is already enabled")))             (message "Type Break mode is already enabled")))
391       (type-break-mode       (type-break-mode
392          (with-current-buffer (find-file-noselect type-break-file-name 'nowarn)
393            (setq buffer-save-without-query t))
394    
395        (or global-mode-string        (or global-mode-string
396            (setq global-mode-string '("")))            (setq global-mode-string '("")))
397        (or (assq 'type-break-mode-line-message-mode        (or (assq 'type-break-mode-line-message-mode
# Line 433  problems." Line 436  problems."
436        (do-auto-save)        (do-auto-save)
437        (with-current-buffer (find-file-noselect type-break-file-name        (with-current-buffer (find-file-noselect type-break-file-name
438                                                 'nowarn)                                                 'nowarn)
         (setq buffer-save-without-query t)  
439          (set-buffer-modified-p nil)          (set-buffer-modified-p nil)
440          (unlock-buffer)          (unlock-buffer)
441          (kill-this-buffer))          (kill-this-buffer))

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

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