Mercurial > hg > xemacs-beta

comparison lisp/packages/gnuserv.el @ 183:e121b013d1f0 r20-3b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b18
author cvs
date Mon, 13 Aug 2007 09:54:23 +0200
parents 8eaf7971accc
children f53b5ca2e663
comparison
equal deleted inserted replaced
182:f07455f06202 183:e121b013d1f0
444 ;; Don't memorize the quick and view buffers. 444 ;; Don't memorize the quick and view buffers.
445 (unless (or quick view) 445 (unless (or quick view)
446 (pushnew (current-buffer) (gnuclient-buffers client)) 446 (pushnew (current-buffer) (gnuclient-buffers client))
447 (setq gnuserv-minor-mode t) 447 (setq gnuserv-minor-mode t)
448 ;; Add the "Done" button to the menubar, only in this buffer. 448 ;; Add the "Done" button to the menubar, only in this buffer.
449 (set-buffer-menubar current-menubar) 449 (if (boundp 'current-menubar)
450 (add-menu-button nil ["Done" gnuserv-edit t])) 450 (progn (set-buffer-menubar current-menubar)
451 (add-menu-button nil ["Done" gnuserv-edit t]))
452 ))
451 (run-hooks 'gnuserv-visit-hook) 453 (run-hooks 'gnuserv-visit-hook)
452 (pop list))) 454 (pop list)))
453 (cond 455 (cond
454 ((and (or quick view) 456 ((and (or quick view)
455 (device-on-window-system-p device)) 457 (device-on-window-system-p device))
602 (save-excursion 604 (save-excursion
603 (set-buffer buffer) 605 (set-buffer buffer)
604 (run-hooks 'gnuserv-done-hook) 606 (run-hooks 'gnuserv-done-hook)
605 (setq gnuserv-minor-mode nil) 607 (setq gnuserv-minor-mode nil)
606 ;; Delete the menu button. 608 ;; Delete the menu button.
607 (delete-menu-item '("Done")) 609 (if (boundp 'current-menubar)
610 (delete-menu-item '("Done")))
608 (funcall (if (gnuserv-temp-file-p buffer) 611 (funcall (if (gnuserv-temp-file-p buffer)
609 gnuserv-done-temp-file-function 612 gnuserv-done-temp-file-function
610 gnuserv-done-function) 613 gnuserv-done-function)
611 buffer))) 614 buffer)))
612 615