Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |