Show
Ignore:
Timestamp:
07/16/06 08:36:52 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/longlines.el

    r4037 r4111  
    397397This is called by `post-command-hook' after each command." 
    398398  (when longlines-wrap-beg 
    399     (cond ((or (eq this-command 'yank) 
    400                (eq this-command 'yank-pop)) 
    401            (longlines-decode-region (point) (mark t)) 
    402            (if longlines-showing 
    403                (longlines-show-region (point) (mark t)))) 
    404           ((and (eq this-command 'newline) longlines-showing) 
    405            (save-excursion 
    406              (if (search-backward "\n" nil t) 
    407                  (longlines-show-region 
    408                   (match-beginning 0) (match-end 0)))))) 
     399    (if (or (eq this-command 'yank) 
     400            (eq this-command 'yank-pop)) 
     401        (longlines-decode-region (point) (mark t))) 
     402    (if longlines-showing 
     403        (longlines-show-region longlines-wrap-beg longlines-wrap-end)) 
    409404    (unless (or (eq this-command 'fill-paragraph) 
    410405                (eq this-command 'fill-region))