/[emacs]/emacs/lisp/server.el
ViewVC logotype

Diff of /emacs/lisp/server.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.74 by gerd, Fri Sep 7 11:35:49 2001 UTC revision 1.75 by rms, Sun Nov 11 17:56:23 2001 UTC
# Line 145  this way." Line 145  this way."
145      (setq minor-mode-alist (cons '(server-buffer-clients " Server") minor-mode-alist)))      (setq minor-mode-alist (cons '(server-buffer-clients " Server") minor-mode-alist)))
146    
147  (defvar server-existing-buffer nil  (defvar server-existing-buffer nil
148    "Non-nil means a server buffer existed before visiting a file.")    "Non-nil means a buffer existed before the Emacs server was asked visit it.
149    This means that the server should not kill the buffer when you say you
150    are done with it in the server.  This variable is local in each buffer
151    where it is set.")
152  (make-variable-buffer-local 'server-existing-buffer)  (make-variable-buffer-local 'server-existing-buffer)
153    
154  ;; If a *server* buffer exists,  ;; If a *server* buffer exists,
# Line 399  or nil.  KILLED is t if we killed BUFFER Line 402  or nil.  KILLED is t if we killed BUFFER
402              (unless for-killing              (unless for-killing
403                (when (and (not killed)                (when (and (not killed)
404                           server-kill-new-buffers                           server-kill-new-buffers
405                           (save-excursion                           (with-current-buffer buffer
406                             (set-buffer buffer)                             (not server-existing-buffer)))
                            server-existing-buffer))  
407                  (setq killed t)                  (setq killed t)
408                  (bury-buffer buffer)                  (bury-buffer buffer)
409                  (kill-buffer buffer))                  (kill-buffer buffer))

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26