From 6991960bf796139833ccc6158c745f9a8ca03aef Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 12 Jul 2006 23:52:18 +0000 Subject: [PATCH] * longlines.el (longlines-post-command-function): Handle open-line too. --- lisp/ChangeLog | 5 +++++ lisp/longlines.el | 16 +++++++++++----- 2 files changed, 16 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 57a591374a..b23e8b538b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-07-12 Chong Yidong + + * longlines.el (longlines-post-command-function): Handle open-line + too. + 2006-07-12 Richard Stallman * progmodes/grep.el (grep-last-buffer): Doc fix. diff --git a/lisp/longlines.el b/lisp/longlines.el index b11d4e6fab..943ee80cc0 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)) -- 2.20.1