andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(longlines-show-region): Make it work on read-only buffers as well.

Browse source
This commit is contained in:
Stefan Monnier 2006-08-01 05:29:19 +00:00
parent c534076ccd
commit da95a9c86f
2 changed files with 16 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/ChangeLog
View file

@ -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'.

11
lisp/longlines.el
View file

@ -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 @@ when the file is saved to disk."
: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 @@ with differing widths."
: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 @@ You can also enable the display temporarily, using the command
: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 @@ With optional argument ARG, make the hard newlines invisible again."
"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))