Mercurial > hg > xemacs-beta
comparison lisp/gnuserv.el @ 4684:15c42a3f4065
Do not move cursor position in gnuclient started buffer if user did
not requested..
| author | It's me FKtPp \;) <m_pupil@yahoo.com.cn> |
|---|---|
| date | Sat, 29 Aug 2009 22:37:50 +0800 |
| parents | a72dc882abf1 |
| children | 8b7644c73fd2 |
comparison
equal
deleted
inserted
replaced
| 4683:0cc9d22c3732 | 4684:15c42a3f4065 |
|---|---|
| 479 ;; Visit the file. | 479 ;; Visit the file. |
| 480 (funcall (if view | 480 (funcall (if view |
| 481 gnuserv-view-file-function | 481 gnuserv-view-file-function |
| 482 gnuserv-find-file-function) | 482 gnuserv-find-file-function) |
| 483 path) | 483 path) |
| 484 (goto-line line) | 484 (when line (goto-line line)) |
| 485 ;; Don't memorize the quick and view buffers. | 485 ;; Don't memorize the quick and view buffers. |
| 486 (unless (or quick view) | 486 (unless (or quick view) |
| 487 (pushnew (current-buffer) (gnuclient-buffers client)) | 487 (pushnew (current-buffer) (gnuclient-buffers client)) |
| 488 (setq gnuserv-minor-mode t) | 488 (setq gnuserv-minor-mode t) |
| 489 ;; Add the "Done" button to the menubar, only in this buffer. | 489 ;; Add the "Done" button to the menubar, only in this buffer. |