Mercurial > emacs
comparison lisp/server.el @ 73929:f4ca1a5d7df7
(server-visit-files): If `minibuffer-auto-raise' has been set to t, respect it.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sun, 12 Nov 2006 05:36:52 +0000 |
| parents | 93040c47199f |
| children | 3de22dfd43f8 dbe3f29e61d6 |
comparison
equal
deleted
inserted
replaced
| 73928:5aa08f9f45e5 | 73929:f4ca1a5d7df7 |
|---|---|
| 509 (save-current-buffer | 509 (save-current-buffer |
| 510 (dolist (file files) | 510 (dolist (file files) |
| 511 ;; If there is an existing buffer modified or the file is | 511 ;; If there is an existing buffer modified or the file is |
| 512 ;; modified, revert it. If there is an existing buffer with | 512 ;; modified, revert it. If there is an existing buffer with |
| 513 ;; deleted file, offer to write it. | 513 ;; deleted file, offer to write it. |
| 514 (let* ((minibuffer-auto-raise server-raise-frame) | 514 (let* ((minibuffer-auto-raise (or server-raise-frame |
| 515 minibuffer-auto-raise)) | |
| 515 (filen (car file)) | 516 (filen (car file)) |
| 516 (obuf (get-file-buffer filen))) | 517 (obuf (get-file-buffer filen))) |
| 517 (add-to-history 'file-name-history filen) | 518 (add-to-history 'file-name-history filen) |
| 518 (if (and obuf (set-buffer obuf)) | 519 (if (and obuf (set-buffer obuf)) |
| 519 (progn | 520 (progn |