[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/longlines.el,v
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/longlines.el,v |
Date: |
Wed, 12 Jul 2006 23:52:19 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 06/07/12 23:52:19
Index: longlines.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/longlines.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- longlines.el 6 Feb 2006 14:33:34 -0000 1.26
+++ longlines.el 12 Jul 2006 23:52:18 -0000 1.27
@@ -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)
+ (longlines-showing
+ (cond ((eq this-command 'newline)
(save-excursion
(if (search-backward "\n" nil t)
(longlines-show-region
- (match-beginning 0) (match-end 0))))))
+ (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))
- [Emacs-diffs] Changes to emacs/lisp/longlines.el,v,
Chong Yidong <=