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

[Chong Yidong]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      06/07/13 14:45:11

Index: longlines.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/longlines.el,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -b -r1.27 -r1.28
--- longlines.el        12 Jul 2006 23:52:18 -0000      1.27
+++ longlines.el        13 Jul 2006 14:45:10 -0000      1.28
@@ -396,22 +396,11 @@
   "Perform line wrapping on the parts of the buffer that have changed.
 This is called by `post-command-hook' after each command."
   (when longlines-wrap-beg
-    (cond ((or (eq this-command 'yank)
+    (if (or (eq this-command 'yank)
                (eq this-command 'yank-pop))
-           (longlines-decode-region (point) (mark t))
+       (longlines-decode-region (point) (mark t)))
            (if longlines-showing
-               (longlines-show-region (point) (mark t))))
-         (longlines-showing
-          (cond ((eq this-command 'newline)
-                 (save-excursion
-                   (if (search-backward "\n" nil t)
-                       (longlines-show-region
-                        (match-beginning 0) (match-end 0)))))
-                ((eq this-command 'open-line)
-                 (save-excursion
-                   (if (search-forward "\n" nil t)
-                       (longlines-show-region
-                        (match-beginning 0) (match-end 0))))))))
+       (longlines-show-region longlines-wrap-beg longlines-wrap-end))
     (unless (or (eq this-command 'fill-paragraph)
                 (eq this-command 'fill-region))
       (longlines-wrap-region longlines-wrap-beg longlines-wrap-end))