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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4219388e72e5c94ce4da76c76c6f76ba15127214..0540072e0c70ad1eb7a5af920caaa686aa509f13 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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'.
 

diff --git a/lisp/longlines.el b/lisp/longlines.el
index 9da3de217abbad4a1eff301fa84024ba182bad03..77e0b415344961ee8ccadf3d015450ad544854e9 100644 (file)
--- a/lisp/longlines.el
+++ b/lisp/longlines.el
@@ -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))