diff options
| author | Richard M. Stallman | 2005-01-12 04:24:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-01-12 04:24:20 +0000 |
| commit | 1b8d07559d30c3ce3229f7119ee9f06177ec8224 (patch) | |
| tree | abe895d7fdc62d02b66cb4b723070c29b58a8489 | |
| parent | aac42a1b2cce228247ab21646cab881ecdf62221 (diff) | |
| download | emacs-1b8d07559d30c3ce3229f7119ee9f06177ec8224.tar.gz emacs-1b8d07559d30c3ce3229f7119ee9f06177ec8224.zip | |
(type-break-mode): Fix previous change.
| -rw-r--r-- | lisp/type-break.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/type-break.el b/lisp/type-break.el index b51a74ea37e..7a387bfe062 100644 --- a/lisp/type-break.el +++ b/lisp/type-break.el | |||
| @@ -389,6 +389,9 @@ problems." | |||
| 389 | (and (interactive-p) | 389 | (and (interactive-p) |
| 390 | (message "Type Break mode is already enabled"))) | 390 | (message "Type Break mode is already enabled"))) |
| 391 | (type-break-mode | 391 | (type-break-mode |
| 392 | (with-current-buffer (find-file-noselect type-break-file-name 'nowarn) | ||
| 393 | (setq buffer-save-without-query t)) | ||
| 394 | |||
| 392 | (or global-mode-string | 395 | (or global-mode-string |
| 393 | (setq global-mode-string '(""))) | 396 | (setq global-mode-string '(""))) |
| 394 | (or (assq 'type-break-mode-line-message-mode | 397 | (or (assq 'type-break-mode-line-message-mode |
| @@ -433,7 +436,6 @@ problems." | |||
| 433 | (do-auto-save) | 436 | (do-auto-save) |
| 434 | (with-current-buffer (find-file-noselect type-break-file-name | 437 | (with-current-buffer (find-file-noselect type-break-file-name |
| 435 | 'nowarn) | 438 | 'nowarn) |
| 436 | (setq buffer-save-without-query t) | ||
| 437 | (set-buffer-modified-p nil) | 439 | (set-buffer-modified-p nil) |
| 438 | (unlock-buffer) | 440 | (unlock-buffer) |
| 439 | (kill-this-buffer)) | 441 | (kill-this-buffer)) |