Mercurial > emacs
comparison lisp/server.el @ 85944:69f410562c03
(server-start): Only register cleanup after server was
started.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Wed, 07 Nov 2007 00:27:01 +0000 |
| parents | 29ea503e1863 |
| children | d3e87ee5aa0e |
comparison
equal
deleted
inserted
replaced
| 85943:85b6f7d4aca8 | 85944:69f410562c03 |
|---|---|
| 481 (letf (((default-file-modes) ?\700)) | 481 (letf (((default-file-modes) ?\700)) |
| 482 (add-hook 'suspend-tty-functions 'server-handle-suspend-tty) | 482 (add-hook 'suspend-tty-functions 'server-handle-suspend-tty) |
| 483 (add-hook 'delete-frame-functions 'server-handle-delete-frame) | 483 (add-hook 'delete-frame-functions 'server-handle-delete-frame) |
| 484 (add-hook 'kill-buffer-query-functions 'server-kill-buffer-query-function) | 484 (add-hook 'kill-buffer-query-functions 'server-kill-buffer-query-function) |
| 485 (add-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function) | 485 (add-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function) |
| 486 (add-hook 'kill-emacs-hook (lambda () (server-mode -1))) ;Cleanup upon exit. | |
| 486 (setq server-process | 487 (setq server-process |
| 487 (apply #'make-network-process | 488 (apply #'make-network-process |
| 488 :name server-name | 489 :name server-name |
| 489 :server t | 490 :server t |
| 490 :noquery t | 491 :noquery t |
| 1291 (set-buffer buffer) | 1292 (set-buffer buffer) |
| 1292 (remove-hook 'kill-buffer-hook 'server-kill-buffer t))) | 1293 (remove-hook 'kill-buffer-hook 'server-kill-buffer t))) |
| 1293 ;; continue standard unloading | 1294 ;; continue standard unloading |
| 1294 nil) | 1295 nil) |
| 1295 | 1296 |
| 1296 (add-hook 'kill-emacs-hook (lambda () (server-mode -1))) ;Cleanup upon exit. | |
| 1297 (defvar server-unload-function 'server-unload-function) | 1297 (defvar server-unload-function 'server-unload-function) |
| 1298 | 1298 |
| 1299 (provide 'server) | 1299 (provide 'server) |
| 1300 | 1300 |
| 1301 ;; arch-tag: 1f7ecb42-f00a-49f8-906d-61995d84c8d6 | 1301 ;; arch-tag: 1f7ecb42-f00a-49f8-906d-61995d84c8d6 |