Mercurial > emacs
comparison lisp/server.el @ 73918:93040c47199f
(server-visit-files): Bind `minibuffer-auto-raise' to the value of
`server-raise-frame'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sat, 11 Nov 2006 14:11:13 +0000 |
| parents | 7e65038a5be1 |
| children | f4ca1a5d7df7 |
comparison
equal
deleted
inserted
replaced
| 73917:7ae5bf94509f | 73918:93040c47199f |
|---|---|
| 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* ((filen (car file)) | 514 (let* ((minibuffer-auto-raise server-raise-frame) |
| 515 (filen (car file)) | |
| 515 (obuf (get-file-buffer filen))) | 516 (obuf (get-file-buffer filen))) |
| 516 (add-to-history 'file-name-history filen) | 517 (add-to-history 'file-name-history filen) |
| 517 (if (and obuf (set-buffer obuf)) | 518 (if (and obuf (set-buffer obuf)) |
| 518 (progn | 519 (progn |
| 519 (cond ((file-exists-p filen) | 520 (cond ((file-exists-p filen) |