Mercurial > emacs
comparison lisp/server.el @ 1079:0c960257c363
entered into RCS
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Fri, 04 Sep 1992 21:49:15 +0000 |
| parents | bf829a2d63b4 |
| children | f3554332993b |
comparison
equal
deleted
inserted
replaced
| 1078:15b4ed20e524 | 1079:0c960257c363 |
|---|---|
| 1 ;;; server.el --- Lisp code for GNU Emacs running as server process. | 1 ;;; server.el --- Lisp code for GNU Emacs running as server process. |
| 2 | 2 |
| 3 ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1986, 1987, 1992 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: William Sommerfeld <wesommer@athena.mit.edu> | 5 ;; Author: William Sommerfeld <wesommer@athena.mit.edu> |
| 6 ;; Keywords: processes | 6 ;; Keywords: processes |
| 7 | 7 |
| 8 ;; Changes by peck@sun.com and by rms. | 8 ;; Changes by peck@sun.com and by rms. |
| 302 (if server-clients | 302 (if server-clients |
| 303 (server-switch-buffer (nth 1 (car server-clients))) | 303 (server-switch-buffer (nth 1 (car server-clients))) |
| 304 (switch-to-buffer (other-buffer))))) | 304 (switch-to-buffer (other-buffer))))) |
| 305 | 305 |
| 306 (global-set-key "\C-x#" 'server-edit) | 306 (global-set-key "\C-x#" 'server-edit) |
| 307 | |
| 308 (provide 'server) | |
| 307 | 309 |
| 308 ;;; server.el ends here | 310 ;;; server.el ends here |