From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/62226 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general,gmane.emacs.devel,gmane.mail.mh-e.devel Subject: Re: New GNOME icons Date: Mon, 13 Mar 2006 20:52:56 +0900 Organization: Emacsen advocacy group Message-ID: References: <20403.1141690692@olgas.newt.com> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1142251031 18102 80.91.229.2 (13 Mar 2006 11:57:11 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 13 Mar 2006 11:57:11 +0000 (UTC) Cc: emacs-devel@gnu.org, mh-e-devel@lists.sourceforge.net Original-X-From: ding-owner+m10753@lists.math.uh.edu Mon Mar 13 12:57:08 2006 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FIlfY-0005Ug-HY for ding-account@gmane.org; Mon, 13 Mar 2006 12:57:04 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1FIlfO-0006La-00; Mon, 13 Mar 2006 05:56:50 -0600 Original-Received: from nas02.math.uh.edu ([129.7.128.40]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1FIlbs-0006LS-00 for ding@lists.math.uh.edu; Mon, 13 Mar 2006 05:53:12 -0600 Original-Received: from quimby.gnus.org ([80.91.224.244]) by nas02.math.uh.edu with esmtp (Exim 4.52) id 1FIlbo-0000P7-GU for ding@lists.math.uh.edu; Mon, 13 Mar 2006 05:53:12 -0600 Original-Received: from washington.hostforweb.net ([66.225.201.13]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1FIlbn-0007mC-00 for ; Mon, 13 Mar 2006 12:53:07 +0100 Original-Received: from [205.234.185.198] (port=60214 helo=mail.jpl.org) by washington.hostforweb.net with esmtpa (Exim 4.52) id 1FIlcK-0004dD-HO; Mon, 13 Mar 2006 05:53:40 -0600 Original-To: ding@gnus.org X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110004 (No Gnus v0.4) Emacs/23.0.0 (gnu/linux) Cancel-Lock: sha1:SAATtLvHOUp521h6vDIPHBFPfbM= X-Hashcash: 1:20:060313:ding@gnus.org::SrvZSoZ/1pX0pD3v:00004FdM X-Hashcash: 1:20:060313:emacs-devel@gnu.org::xyBJaNgnFulRufik:00000000000000000000000000000000000000000051pG X-Hashcash: 1:20:060313:mh-e-devel@lists.sourceforge.net::33hM6o25TTPmTKtz:000000000000000000000000000002YSl X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - washington.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -2.5 (--) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: news.gmane.org gmane.emacs.gnus.general:62226 gmane.emacs.devel:51549 gmane.mail.mh-e.devel:11966 Archived-At: >>>>> In >>>>> Reiner Steib wrote: > [1] * gmm-utils.el (gmm-image-load-path-for-library): Return single > directory if path is t. Add no-error. Because of the `no-error' argument[1], I needed to modify the `gmm-defun-compat' macro as follows since I'm using Emacs 23. It will become unnecessary soon (when the `emacs-unicode-2' branch is synch'd with the trunk), though. --8<---------------cut here---------------start------------->8--- --- gmm-utils.el~ 2006-03-07 22:01:08 +0000 +++ gmm-utils.el 2006-03-13 11:51:18 +0000 @@ -285,8 +285,19 @@ "Create function NAME. If FUNCTION exists, then NAME becomes an alias for FUNCTION. Otherwise, create function NAME with ARG-LIST and BODY." - (let ((defined-p (fboundp function))) - (if defined-p + (let ((definition (and (fboundp function) + (symbol-function function)))) + ;; FIXME: If a function which is not a byte compiled one might be + ;; given as FUNCTION, we'll have to use `ad-arglist' or equivalent. + (if (and definition + (or (not (byte-code-function-p definition)) + (eq (length arg-list) + (ignore-errors + (length (if (fboundp 'compiled-function-arglist) + ;; XEmacs + (eval (list 'compiled-function-arglist + definition)) + (aref definition 0))))))) `(defalias ',name ',function) `(defun ,name ,arg-list ,@body)))) --8<---------------cut here---------------end--------------->8--- [1] image-load-path-for-library is a compiled Lisp function in `image.el'. (image-load-path-for-library LIBRARY IMAGE &optional PATH)