* longlines.el (longlines-post-command-function): Handle open-line

	too.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57a591374ab178beafa7e63d89a32aae3e0e48ef..b23e8b538b071d06c4e3cef2eeb9d6fdad513eab 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-07-12  Chong Yidong  <cyd@stupidchicken.com>
+
+       * longlines.el (longlines-post-command-function): Handle open-line
+       too.
+
 2006-07-12  Richard Stallman  <rms@gnu.org>
 
        * progmodes/grep.el (grep-last-buffer): Doc fix.

diff --git a/lisp/longlines.el b/lisp/longlines.el
index b11d4e6fabae92ff41cc29be337ce909fd9be8f6..943ee80cc0b7c340691c917b5c097081ed361b85 100644 (file)
--- a/lisp/longlines.el
+++ b/lisp/longlines.el
@@ -401,11 +401,17 @@ This is called by `post-command-hook' after each command."
            (longlines-decode-region (point) (mark t))
            (if longlines-showing
                (longlines-show-region (point) (mark t))))
-          ((and (eq this-command 'newline) longlines-showing)
-           (save-excursion
-             (if (search-backward "\n" nil t)
-                 (longlines-show-region
-                  (match-beginning 0) (match-end 0))))))
+         (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))))))))
     (unless (or (eq this-command 'fill-paragraph)
                 (eq this-command 'fill-region))
       (longlines-wrap-region longlines-wrap-beg longlines-wrap-end))