Mercurial > emacs
diff lisp/longlines.el @ 71864:b5cc4afb0853
* longlines.el (longlines-post-command-function): Handle open-line
too.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 12 Jul 2006 23:52:18 +0000 |
| parents | 3bd95f4f2941 |
| children | 0048306da39e |
line wrap: on
line diff
--- a/lisp/longlines.el Wed Jul 12 19:07:33 2006 +0000 +++ b/lisp/longlines.el Wed Jul 12 23:52:18 2006 +0000 @@ -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) - (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))