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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      06/07/12 23:52:19

Index: longlines.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/longlines.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- longlines.el        6 Feb 2006 14:33:34 -0000       1.26
+++ longlines.el        12 Jul 2006 23:52:18 -0000      1.27
@@ -401,11 +401,17 @@
            (longlines-decode-region (point) (mark t))
            (if longlines-showing
                (longlines-show-region (point) (mark t))))
-          ((and (eq this-command 'newline) longlines-showing)
+         (longlines-showing
+          (cond ((eq this-command 'newline)
            (save-excursion
              (if (search-backward "\n" nil t)
                  (longlines-show-region
-                  (match-beginning 0) (match-end 0))))))
+                        (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))))))))
     (unless (or (eq this-command 'fill-paragraph)
                 (eq this-command 'fill-region))
       (longlines-wrap-region longlines-wrap-beg longlines-wrap-end))