diff options
Diffstat (limited to 'lisp/longlines.el')
| -rw-r--r-- | lisp/longlines.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/longlines.el b/lisp/longlines.el index 9da3de217ab..77e0b415344 100644 --- a/lisp/longlines.el +++ b/lisp/longlines.el | |||
| @@ -44,7 +44,7 @@ | |||
| 44 | :group 'fill) | 44 | :group 'fill) |
| 45 | 45 | ||
| 46 | (defcustom longlines-auto-wrap t | 46 | (defcustom longlines-auto-wrap t |
| 47 | "*Non-nil means long lines are automatically wrapped after each command. | 47 | "Non-nil means long lines are automatically wrapped after each command. |
| 48 | Otherwise, you can perform filling using `fill-paragraph' or | 48 | Otherwise, you can perform filling using `fill-paragraph' or |
| 49 | `auto-fill-mode'. In any case, the soft newlines will be removed | 49 | `auto-fill-mode'. In any case, the soft newlines will be removed |
| 50 | when the file is saved to disk." | 50 | when the file is saved to disk." |
| @@ -52,7 +52,7 @@ when the file is saved to disk." | |||
| 52 | :type 'boolean) | 52 | :type 'boolean) |
| 53 | 53 | ||
| 54 | (defcustom longlines-wrap-follows-window-size nil | 54 | (defcustom longlines-wrap-follows-window-size nil |
| 55 | "*Non-nil means wrapping and filling happen at the edge of the window. | 55 | "Non-nil means wrapping and filling happen at the edge of the window. |
| 56 | Otherwise, `fill-column' is used, regardless of the window size. This | 56 | Otherwise, `fill-column' is used, regardless of the window size. This |
| 57 | does not work well when the buffer is displayed in multiple windows | 57 | does not work well when the buffer is displayed in multiple windows |
| 58 | with differing widths." | 58 | with differing widths." |
| @@ -60,7 +60,7 @@ with differing widths." | |||
| 60 | :type 'boolean) | 60 | :type 'boolean) |
| 61 | 61 | ||
| 62 | (defcustom longlines-show-hard-newlines nil | 62 | (defcustom longlines-show-hard-newlines nil |
| 63 | "*Non-nil means each hard newline is marked on the screen. | 63 | "Non-nil means each hard newline is marked on the screen. |
| 64 | \(The variable `longlines-show-effect' controls what they look like.) | 64 | \(The variable `longlines-show-effect' controls what they look like.) |
| 65 | You can also enable the display temporarily, using the command | 65 | You can also enable the display temporarily, using the command |
| 66 | `longlines-show-hard-newlines'" | 66 | `longlines-show-hard-newlines'" |
| @@ -68,7 +68,7 @@ You can also enable the display temporarily, using the command | |||
| 68 | :type 'boolean) | 68 | :type 'boolean) |
| 69 | 69 | ||
| 70 | (defcustom longlines-show-effect (propertize "|\n" 'face 'escape-glyph) | 70 | (defcustom longlines-show-effect (propertize "|\n" 'face 'escape-glyph) |
| 71 | "*A string to display when showing hard newlines. | 71 | "A string to display when showing hard newlines. |
| 72 | This is used when `longlines-show-hard-newlines' is on." | 72 | This is used when `longlines-show-hard-newlines' is on." |
| 73 | :group 'longlines | 73 | :group 'longlines |
| 74 | :type 'string) | 74 | :type 'string) |
| @@ -202,7 +202,8 @@ With optional argument ARG, make the hard newlines invisible again." | |||
| 202 | "Make hard newlines between BEG and END visible." | 202 | "Make hard newlines between BEG and END visible." |
| 203 | (let* ((pmin (min beg end)) | 203 | (let* ((pmin (min beg end)) |
| 204 | (pmax (max beg end)) | 204 | (pmax (max beg end)) |
| 205 | (pos (text-property-not-all pmin pmax 'hard nil))) | 205 | (pos (text-property-not-all pmin pmax 'hard nil)) |
| 206 | (inhibit-read-only t)) | ||
| 206 | (while pos | 207 | (while pos |
| 207 | (put-text-property pos (1+ pos) 'display | 208 | (put-text-property pos (1+ pos) 'display |
| 208 | (copy-sequence longlines-show-effect)) | 209 | (copy-sequence longlines-show-effect)) |