[Emacs-diffs] Changes to emacs/lisp/longlines.el

[Richard M . Stallman]

Index: emacs/lisp/longlines.el
diff -c emacs/lisp/longlines.el:1.7 emacs/lisp/longlines.el:1.8
*** emacs/lisp/longlines.el:1.7 Mon Jul  4 23:08:56 2005
--- emacs/lisp/longlines.el     Sun Jul 10 20:37:20 2005
***************
*** 170,189 ****
    "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)))
      (while pos
        (put-text-property pos (1+ pos) 'display
                           (copy-sequence longlines-show-effect))
!       (setq pos (text-property-any (1+ pos) pmax 'hard t)))))
  
  (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)))
      (while pos
        (remove-text-properties pos (1+ pos) '(display))
!       (setq pos (text-property-any (1+ pos) (point-max) 'hard t)))))
  
  ;; Wrapping the paragraphs.
  
--- 170,189 ----
    "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)))
      (while pos
        (put-text-property pos (1+ pos) 'display
                           (copy-sequence longlines-show-effect))
!       (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-not-all (point-min) (point-max) 'hard nil)))
      (while pos
        (remove-text-properties pos (1+ pos) '(display))
!       (setq pos (text-property-not-all (1+ pos) (point-max) 'hard nil)))))
  
  ;; Wrapping the paragraphs.