From: Chong Yidong Date: Tue, 12 Aug 2008 19:39:50 +0000 (+0000) Subject: (visual-line--saved-state): New var. X-Git-Tag: emacs-pretest-23.0.90~3517 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=748e001a2604ba7c0211620d894423cfa212f251;p=emacs.git (visual-line--saved-state): New var. (visual-line-mode): Save local values of variables, and restore them when visual-line-mode is disabled. --- diff --git a/lisp/simple.el b/lisp/simple.el index db7979bdd83..c32a415dc09 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -4508,6 +4508,8 @@ other purposes." (copy-tree fringe-indicator-alist))))))) (set-default symbol value))) +(defvar visual-line--saved-state nil) + (define-minor-mode visual-line-mode "Redefine simple editing commands to act on visual lines, not logical lines. This also turns on `word-wrap' in the buffer." @@ -4516,6 +4518,15 @@ This also turns on `word-wrap' in the buffer." :lighter " wrap" (if visual-line-mode (progn + (set (make-local-variable 'visual-line--saved-state) nil) + ;; Save the local values of some variables, to be restored if + ;; visual-line-mode is turned off. + (dolist (var '(line-move-visual truncate-lines + truncate-partial-width-windows + word-wrap fringe-indicator-alist)) + (if (local-variable-p var) + (push (cons var (symbol-value var)) + visual-line--saved-state))) (set (make-local-variable 'line-move-visual) t) (set (make-local-variable 'truncate-partial-width-windows) nil) (setq truncate-lines nil @@ -4527,7 +4538,10 @@ This also turns on `word-wrap' in the buffer." (kill-local-variable 'word-wrap) (kill-local-variable 'truncate-lines) (kill-local-variable 'truncate-partial-width-windows) - (kill-local-variable 'fringe-indicator-alist))) + (kill-local-variable 'fringe-indicator-alist) + (dolist (saved visual-line--saved-state) + (set (make-local-variable (car saved)) (cdr saved))) + (kill-local-variable 'visual-line--saved-state))) (defun turn-on-visual-line-mode () (visual-line-mode 1))