diff options
| author | Chong Yidong | 2008-07-21 03:54:03 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-07-21 03:54:03 +0000 |
| commit | b677cb960a24885ff06419aa247d9d1574fc0bee (patch) | |
| tree | e863ae3ca209ff3233ed4ec97203b56d1bc858a5 | |
| parent | 10c0e12456d31e1b5f5aab2ab325bf0c7713ce15 (diff) | |
| download | emacs-b677cb960a24885ff06419aa247d9d1574fc0bee.tar.gz emacs-b677cb960a24885ff06419aa247d9d1574fc0bee.zip | |
(visual-line-mode): Add lighter.
| -rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index a854e1dd96a..66541973a7e 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -4508,9 +4508,11 @@ other purposes." | |||
| 4508 | (set-default symbol value))) | 4508 | (set-default symbol value))) |
| 4509 | 4509 | ||
| 4510 | (define-minor-mode visual-line-mode | 4510 | (define-minor-mode visual-line-mode |
| 4511 | "Redefine simple editing commands to act on visual lines, not logical lines." | 4511 | "Redefine simple editing commands to act on visual lines, not logical lines. |
| 4512 | This also turns on `word-wrap' in the buffer." | ||
| 4512 | :keymap visual-line-mode-map | 4513 | :keymap visual-line-mode-map |
| 4513 | :group 'visual-line | 4514 | :group 'visual-line |
| 4515 | :lighter " wrap" | ||
| 4514 | (if visual-line-mode | 4516 | (if visual-line-mode |
| 4515 | (progn | 4517 | (progn |
| 4516 | (set (make-local-variable 'line-move-visual) t) | 4518 | (set (make-local-variable 'line-move-visual) t) |