Mercurial > hg > xemacs-beta

comparison lisp/gnuserv.el @ 263:727739f917cb r20-5b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b30
author cvs
date Mon, 13 Aug 2007 10:24:41 +0200
parents 262b8bb4a523
children c5d627a313b1
comparison
equal deleted inserted replaced
262:9d8607af9e13 263:727739f917cb
203 (defcustom gnuserv-kill-quietly nil 203 (defcustom gnuserv-kill-quietly nil
204 "*Non-nil means to kill buffers with clients attached without requiring confirmation." 204 "*Non-nil means to kill buffers with clients attached without requiring confirmation."
205 :type 'boolean 205 :type 'boolean
206 :group 'gnuserv) 206 :group 'gnuserv)
207 207
208 (defcustom gnuserv-temp-file-regexp "^/tmp/Re\\|/draft$" 208 (defcustom gnuserv-temp-file-regexp
209 (concat "^" (temp-directory) "/Re\\|/draft$")
209 "*Regexp which should match filenames of temporary files deleted 210 "*Regexp which should match filenames of temporary files deleted
210 and reused by the programs that invoke the Emacs server." 211 and reused by the programs that invoke the Emacs server."
211 :type 'regexp 212 :type 'regexp
212 :group 'gnuserv) 213 :group 'gnuserv)
213 214
457 (pushnew (current-buffer) (gnuclient-buffers client)) 458 (pushnew (current-buffer) (gnuclient-buffers client))
458 (setq gnuserv-minor-mode t) 459 (setq gnuserv-minor-mode t)
459 ;; Add the "Done" button to the menubar, only in this buffer. 460 ;; Add the "Done" button to the menubar, only in this buffer.
460 (if (and (featurep 'menubar) current-menubar) 461 (if (and (featurep 'menubar) current-menubar)
461 (progn (set-buffer-menubar current-menubar) 462 (progn (set-buffer-menubar current-menubar)
462 (add-menu-button nil ["Done" gnuserv-edit t])) 463 (add-menu-button nil ["Done" gnuserv-edit]))
463 )) 464 ))
464 (run-hooks 'gnuserv-visit-hook) 465 (run-hooks 'gnuserv-visit-hook)
465 (pop list))) 466 (pop list)))
466 (cond 467 (cond
467 ((and (or quick view) 468 ((and (or quick view)