Show
Ignore:
Timestamp:
10/02/05 07:23:38 (3 years ago)
Author:
miyoshi
Message:

Update.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/comint.el

    r3823 r3892  
    20572057           (comint-skip-prompt)) 
    20582058          (t 
    2059            (goto-char (field-beginning pos)) 
     2059           (let* ((beg (field-beginning pos)) 
     2060                  (pt (if (= (point-min) beg) 
     2061                          (point-min) 
     2062                        (1+ beg)))) 
     2063             (goto-char pt)) 
    20602064           (set-window-start (selected-window) (point)))))) 
    20612065