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 |