Mercurial > emacs
changeset 71873:0048306da39e
simplify last fix.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 13 Jul 2006 14:45:10 +0000 |
| parents | b20203b004f8 |
| children | e727167b07e4 |
| files | lisp/longlines.el |
| diffstat | 1 files changed, 5 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/longlines.el Thu Jul 13 13:43:50 2006 +0000 +++ b/lisp/longlines.el Thu Jul 13 14:45:10 2006 +0000 @@ -396,22 +396,11 @@ "Perform line wrapping on the parts of the buffer that have changed. This is called by `post-command-hook' after each command." (when longlines-wrap-beg - (cond ((or (eq this-command 'yank) - (eq this-command 'yank-pop)) - (longlines-decode-region (point) (mark t)) - (if longlines-showing - (longlines-show-region (point) (mark t)))) - (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)))))))) + (if (or (eq this-command 'yank) + (eq this-command 'yank-pop)) + (longlines-decode-region (point) (mark t))) + (if longlines-showing + (longlines-show-region longlines-wrap-beg longlines-wrap-end)) (unless (or (eq this-command 'fill-paragraph) (eq this-command 'fill-region)) (longlines-wrap-region longlines-wrap-beg longlines-wrap-end))