Mercurial > emacs
changeset 67021:e220d76071f7
* longlines.el (longlines-before-revert-hook)
(longlines-after-revert-hook): New functions.
(longlines-mode): Turn off longlines temporarily when reverting.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 19 Nov 2005 17:29:20 +0000 |
| parents | 2385088bbb84 |
| children | 47e5299bbfb0 |
| files | lisp/ChangeLog lisp/longlines.el |
| diffstat | 2 files changed, 18 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Nov 19 17:13:07 2005 +0000 +++ b/lisp/ChangeLog Sat Nov 19 17:29:20 2005 +0000 @@ -1,3 +1,9 @@ +2005-11-19 Chong Yidong <cyd@stupidchicken.com> + + * longlines.el (longlines-before-revert-hook) + (longlines-after-revert-hook): New functions. + (longlines-mode): Turn off longlines temporarily when reverting. + 2005-11-19 Andreas Schwab <schwab@suse.de> * emacs-lisp/shadow.el: Handle compressed files.
--- a/lisp/longlines.el Sat Nov 19 17:13:07 2005 +0000 +++ b/lisp/longlines.el Sat Nov 19 17:29:20 2005 +0000 @@ -108,6 +108,7 @@ (set (make-local-variable 'require-final-newline) nil) (add-to-list 'buffer-file-format 'longlines) (add-hook 'change-major-mode-hook 'longlines-mode-off nil t) + (add-hook 'before-revert-hook 'longlines-before-revert-hook nil t) (make-local-variable 'buffer-substring-filters) (set (make-local-variable 'isearch-search-fun-function) 'longlinges-search-function) @@ -166,6 +167,7 @@ (remove-hook 'before-kill-functions 'longlines-encode-region t) (remove-hook 'after-change-functions 'longlines-after-change-function t) (remove-hook 'post-command-hook 'longlines-post-command-function t) + (remove-hook 'before-revert-hook 'longlines-before-revert-hook t) (remove-hook 'window-configuration-change-hook 'longlines-window-change-function t) (when longlines-wrap-follows-window-size @@ -430,10 +432,18 @@ ;; Loading and saving +(defun longlines-before-revert-hook () + (add-hook 'after-revert-hook 'longlines-after-revert-hook nil t) + (longlines-mode 0)) + +(defun longlines-after-revert-hook () + (remove-hook 'after-revert-hook 'longlines-after-revert-hook t) + (longlines-mode 1)) + (add-to-list 'format-alist - (list 'longlines "Automatically wrap long lines." nil - 'longlines-decode-region 'longlines-encode-region t nil)) + (list 'longlines-encode "Encode long lines." nil nil + 'longlines-encode-region t nil)) (provide 'longlines)