From xemacs-m  Thu Jul 10 11:59:39 1997
Received: from frege.math.ethz.ch (root@frege-d-math-north-g-west.math.ethz.ch [129.132.145.3])
	by xemacs.org (8.8.5/8.8.5) with SMTP id LAA09852
	for <xemacs-beta@xemacs.org>; Thu, 10 Jul 1997 11:59:38 -0500 (CDT)
Received: from midget.math.ethz.ch (vroonhof@midget [129.132.145.4]) by frege.math.ethz.ch (8.6.12/Main-STAT-mailer) with ESMTP id SAA00798 for <xemacs-beta@xemacs.org>; Thu, 10 Jul 1997 18:58:04 +0200
Received: (vroonhof@localhost) by midget.math.ethz.ch (8.6.12/D-MATH-client) id SAA19152; Thu, 10 Jul 1997 18:56:27 +0200
To: xemacs-beta@xemacs.org
Subject: Re: gnuserv.el enhancement - "Done" button
References: <26337.868545147@kocrsw12> <kigpvsrc545.fsf@jagor.srce.hr>
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: multipart/mixed;
 boundary="Multipart_Thu_Jul_10_18:56:27_1997-1"
Content-Transfer-Encoding: 7bit
From: Jan Vroonhof <vroonhof@math.ethz.ch>
Date: 10 Jul 1997 18:56:27 +0200
In-Reply-To: Hrvoje Niksic's message of 10 Jul 1997 17:13:30 +0200
Message-ID: <bylo3eu9qc.fsf@midget.math.ethz.ch>
Lines: 92
X-Mailer: Gnus v5.4.55/XEmacs 19.15

--Multipart_Thu_Jul_10_18:56:27_1997-1
Content-Type: text/plain; charset=US-ASCII

Hrvoje Niksic <hniksic@srce.hr> writes:

> 1997-07-10  Hrvoje Niksic  <hniksic@srce.hr>
> 
> 	* packages/gnuserv.el (gnuserv-edit-files): Operate on this
> 	buffer's menubar.
> 

:-(, I just had gnuserv 3.7 working under FSF 19.34 using the file
below.

Could we move this menu stuff to a hook function that is by default on
gnuserv-edit-hook and gnuserv-done-hook. Then it is easier to remove
... (The other alternative would be easy-menu but that would be
overkill).

Jan

P.S. Note with the following file. gnuclient works as you would expect
under FSF Emacs 19.34. (i.e. No tty-frames and stuff, but -eval works and
normal gnuclient file editing).

P.P.S. Why the %$#@$@ does FSF Emacs not include functionp? Now there is
gnuserv-functionp, message-functionp, gnus-functionp etc etc.

P.P.P.S. I still am not sure the compatibilty variable stuff works
well yet. In particular when the server-* variables are set before
gnuserv gets loaded. 


--Multipart_Thu_Jul_10_18:56:27_1997-1
Content-Type: application/octet-stream; type=emacs-lisp
Content-Disposition: attachment; filename="gnuserv-compat.el"
Content-Transfer-Encoding: 7bit

(require 'advice)

;; Copied from gnus-util.el
(defsubst gnuserv-functionp (form)
  "Return non-nil if FORM is funcallable."
  (or (and (symbolp form) (fboundp form))
      (and (listp form) (eq (car form) 'lambda))
      (compiled-function-p form)))


(defalias 'functionp 'gnuserv-functionp)

(defun gnuserv-compat-dummy (&rest discard)
  'dummy-device-see-gnuserv-compat-el)

(defun gnuserv-compat-dummy-list (&rest discard)
  '(dummy-device-see-gnuserv-compat-el))

(defalias 'selected-device 'gnuserv-compat-dummy)
(defalias 'frame-device 'gnuserv-compat-dummy)
(defalias 'device-list 'gnuserv-compat-dummy-list)
(defalias 'make-x-device 'gnuserv-compat-dummy)
(defalias 'device-on-window-system-p 'gnuserv-compat-dummy)
(defalias 'device-live-p 'gnuserv-compat-dummy)

(defadvice filtered-frame-list (before gnuserv-filtered-frame-list-advice
				       (PREDICATE &optional device) act)
  (ad-set-args 1 (list PREDICATE)))

(defadvice make-frame (before gnuserv-make-frame-advice
				       (&optional PARAMETERS device) act)
  (ad-set-args 1 (list PARAMETERS)))

(defalias 'define-obsolete-variable-alias 'defalias)

(defalias 'deiconify-frame 'make-frame-visible)

(defun frame-iconified-p (&optional frame)
  (eq 'icon (frame-visible-p (or frame (selected-frame)))))

(defun device-frame-list (&optional device)
  (frame-list))

;;(require 'gnuserv)

(provide 'gnuserv-compat)

	 
--Multipart_Thu_Jul_10_18:56:27_1997-1
Content-Type: text/plain; charset=US-ASCII



--Multipart_Thu_Jul_10_18:56:27_1997-1--

