/[emacs]/emacs/lisp/comint.el
ViewVC logotype

Diff of /emacs/lisp/comint.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.331 by rms, Thu Aug 25 10:56:51 2005 UTC revision 1.332 by rfrancoise, Wed Sep 28 17:46:59 2005 UTC
# Line 2056  Sets mark to the value of point when thi Line 2056  Sets mark to the value of point when thi
2056             (set-window-start (selected-window) (point))             (set-window-start (selected-window) (point))
2057             (comint-skip-prompt))             (comint-skip-prompt))
2058            (t            (t
2059             (goto-char (field-beginning pos))             (let* ((beg (field-beginning pos))
2060                      (pt (if (= (point-min) beg)
2061                              (point-min)
2062                            (1+ beg))))
2063                 (goto-char pt))
2064             (set-window-start (selected-window) (point))))))             (set-window-start (selected-window) (point))))))
2065    
2066    

Legend:
Removed from v.1.331  
changed lines
  Added in v.1.332

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26