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

	too.

2 files changed, 16 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57a591374ab..b23e8b538b0 100644
--- 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 b11d4e6faba..943ee80cc0b 100644
--- 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))