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.
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
