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