Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1d515b42
Commit
1d515b42
authored
Nov 07, 2007
by
Andreas Schwab
Browse files
(server-start): Only register cleanup after server was
started.
parent
726f0272
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
1 deletion
+6
-1
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/server.el
lisp/server.el
+1
-1
No files found.
lisp/ChangeLog
View file @
1d515b42
2007-11-07 Andreas Schwab <schwab@suse.de>
* server.el (server-start): Only register cleanup after server was
started.
2007-11-06 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
...
...
lisp/server.el
View file @
1d515b42
...
...
@@ -483,6 +483,7 @@ kill any existing server communications subprocess."
(
add-hook
'delete-frame-functions
'server-handle-delete-frame
)
(
add-hook
'kill-buffer-query-functions
'server-kill-buffer-query-function
)
(
add-hook
'kill-emacs-query-functions
'server-kill-emacs-query-function
)
(
add-hook
'kill-emacs-hook
(
lambda
()
(
server-mode
-1
)))
;Cleanup upon exit.
(
setq
server-process
(
apply
#'
make-network-process
:name
server-name
...
...
@@ -1293,7 +1294,6 @@ only these files will be asked to be saved."
;; continue standard unloading
nil
)
(
add-hook
'kill-emacs-hook
(
lambda
()
(
server-mode
-1
)))
;Cleanup upon exit.
(
defvar
server-unload-function
'server-unload-function
)
(
provide
'server
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment