Mercurial > emacs

changeset 64216:6c19076eecb0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(longlines-show-region, longlines-unshow-hard-newlines): Recognize hard newlines by non-nil hard property, instead of t.
author Richard M. Stallman <rms@gnu.org>
date Sun, 10 Jul 2005 20:37:20 +0000
parents a4c59075cac8
children 6eb4f98295bb
files lisp/longlines.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/longlines.el	Sun Jul 10 18:46:24 2005 +0000
+++ b/lisp/longlines.el	Sun Jul 10 20:37:20 2005 +0000
@@ -170,20 +170,20 @@
   "Make hard newlines between BEG and END visible."
   (let* ((pmin (min beg end))
          (pmax (max beg end))
-         (pos (text-property-any pmin pmax 'hard t)))
+         (pos (text-property-not-all pmin pmax 'hard nil)))
     (while pos
       (put-text-property pos (1+ pos) 'display
                          (copy-sequence longlines-show-effect))
-      (setq pos (text-property-any (1+ pos) pmax 'hard t)))))
+      (setq pos (text-property-not-all (1+ pos) pmax 'hard nil)))))
 
 (defun longlines-unshow-hard-newlines ()
   "Make hard newlines invisible again."
   (interactive)
   (setq longlines-showing nil)
-  (let ((pos (text-property-any (point-min) (point-max) 'hard t)))
+  (let ((pos (text-property-not-all (point-min) (point-max) 'hard nil)))
     (while pos
       (remove-text-properties pos (1+ pos) '(display))
-      (setq pos (text-property-any (1+ pos) (point-max) 'hard t)))))
+      (setq pos (text-property-not-all (1+ pos) (point-max) 'hard nil)))))
 
 ;; Wrapping the paragraphs.