Show
Ignore:
Timestamp:
07/01/06 08:27:06 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/comint.el

    r4091 r4098  
    10481048  "Cycle backwards through input history, saving input." 
    10491049  (interactive "*p") 
    1050   (if (and comint-input-ring-index  
     1050  (if (and comint-input-ring-index 
    10511051           (or                 ;; leaving the "end" of the ring 
    10521052            (and (< arg 0)              ; going down 
    10531053                 (eq comint-input-ring-index 0)) 
    10541054            (and (> arg 0)              ; going up 
    1055                  (eq comint-input-ring-index  
     1055                 (eq comint-input-ring-index 
    10561056                     (1- (ring-length comint-input-ring))))) 
    10571057           comint-stored-incomplete-input) 
    …… 
    15111511 
    15121512          (let ((beg (marker-position pmark)) 
    1513               (end (if no-newline (point) (1- (point)))) 
    1514               (inhibit-modification-hooks t)) 
     1513               (end (if no-newline (point) (1- (point)))) 
     1514               (inhibit-modification-hooks t)) 
    15151515            (when (> end beg) 
    1516               ;; Set text-properties for the input field 
    1517               (add-text-properties 
    1518                beg end 
    1519                '(front-sticky t 
    1520                  font-lock-face comint-highlight-input 
    1521                  mouse-face highlight 
    1522                  help-echo "mouse-2: insert after prompt as new input")) 
     1516              (add-text-properties beg end 
     1517                                   '(front-sticky t 
     1518                                     font-lock-face comint-highlight-input)) 
    15231519              (unless comint-use-prompt-regexp 
    15241520                ;; Give old user input a field property of `input', to 
    …… 
    15271523                ;; `boundary' field to make cursor movement between input 
    15281524                ;; and output fields smoother. 
    1529                 (put-text-property beg end 'field 'input))) 
     1525                (add-text-properties 
     1526                 beg end 
     1527                 '(mouse-face highlight 
     1528                   help-echo "mouse-2: insert after prompt as new input" 
     1529                   field input)))) 
    15301530            (unless (or no-newline comint-use-prompt-regexp) 
    15311531              ;; Cover the terminating newline