Mercurial > emacs
changeset 72225:1d3db748db52
(longlines-show-region): Make it work on read-only buffers as well.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 01 Aug 2006 05:29:19 +0000 |
| parents | 6564e84a8e09 |
| children | 8e59824f44f3 |
| files | lisp/ChangeLog lisp/longlines.el |
| diffstat | 2 files changed, 16 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Aug 01 02:49:47 2006 +0000 +++ b/lisp/ChangeLog Tue Aug 01 05:29:19 2006 +0000 @@ -1,7 +1,11 @@ +2006-08-01 Stefan Monnier <monnier@iro.umontreal.ca> + + * longlines.el (longlines-show-region): Make it work on read-only + buffers as well. + 2006-08-01 Nick Roberts <nickrob@snap.net.nz> - * progmodes/gdb-ui.el (gdb-set-hollow): Check for - gud-last-last-frame. + * progmodes/gdb-ui.el (gdb-set-hollow): Check for gud-last-last-frame. 2006-07-31 Richard Stallman <rms@gnu.org> @@ -112,10 +116,10 @@ * tumme.el (tumme-track-original-file): Add `buffer-live-p' check. (tumme-format-properties-string): Handle empty `buf'. - (tumme-get-comment): Change variable names inside `let'. Add - missing `let' variable that cause font-lock problems. - (tumme-write-comments): Change variable names inside `let'. Add - missing `let' variable that cause font-lock problems. + (tumme-get-comment): Change variable names inside `let'. + Add missing `let' variable that cause font-lock problems. + (tumme-write-comments): Change variable names inside `let'. + Add missing `let' variable that cause font-lock problems. (tumme-forward-image): Rename from `tumme-forward-char'. (tumme-backward-image): Rename from `tumme-backward-char'.
--- a/lisp/longlines.el Tue Aug 01 02:49:47 2006 +0000 +++ b/lisp/longlines.el Tue Aug 01 05:29:19 2006 +0000 @@ -44,7 +44,7 @@ :group 'fill) (defcustom longlines-auto-wrap t - "*Non-nil means long lines are automatically wrapped after each command. + "Non-nil means long lines are automatically wrapped after each command. Otherwise, you can perform filling using `fill-paragraph' or `auto-fill-mode'. In any case, the soft newlines will be removed when the file is saved to disk." @@ -52,7 +52,7 @@ :type 'boolean) (defcustom longlines-wrap-follows-window-size nil - "*Non-nil means wrapping and filling happen at the edge of the window. + "Non-nil means wrapping and filling happen at the edge of the window. Otherwise, `fill-column' is used, regardless of the window size. This does not work well when the buffer is displayed in multiple windows with differing widths." @@ -60,7 +60,7 @@ :type 'boolean) (defcustom longlines-show-hard-newlines nil - "*Non-nil means each hard newline is marked on the screen. + "Non-nil means each hard newline is marked on the screen. \(The variable `longlines-show-effect' controls what they look like.) You can also enable the display temporarily, using the command `longlines-show-hard-newlines'" @@ -68,7 +68,7 @@ :type 'boolean) (defcustom longlines-show-effect (propertize "|\n" 'face 'escape-glyph) - "*A string to display when showing hard newlines. + "A string to display when showing hard newlines. This is used when `longlines-show-hard-newlines' is on." :group 'longlines :type 'string) @@ -202,7 +202,8 @@ "Make hard newlines between BEG and END visible." (let* ((pmin (min beg end)) (pmax (max beg end)) - (pos (text-property-not-all pmin pmax 'hard nil))) + (pos (text-property-not-all pmin pmax 'hard nil)) + (inhibit-read-only t)) (while pos (put-text-property pos (1+ pos) 'display (copy-sequence longlines-show-effect))