Re: New GNOME icons

[Bill Wohler <wohler@newt.com>]

[Taking emacs-devel off the cc list since they don't need to be bothered
by this. Or do they?]

Katsumi Yamaoka <yamaoka@jpl.org> wrote:

> >>>>> In <v9fylp4zwh.fsf@marauder.physik.uni-ulm.de>
> >>>>>	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

Why? The arguments to *-defun-compat shouldn't make any difference. What
problems were you seeing?

>                                     since I'm using Emacs 23.

What's that?

> It will become unnecessary soon (when the `emacs-unicode-2'
> branch is synch'd with the trunk), though.

Please document that.

Your patch is completely undecipherable to me. I'd like to see some
documentation regarding the motivation for it, as well as what it is
doing.

> --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)
> 
> 
> -------------------------------------------------------
> This SF.Net email is sponsored by xPML, a groundbreaking scripting language
> that extends applications into web and mobile media. Attend the live webcast
> and join the prime developer group breaking into this new coding territory!
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642
> _______________________________________________
> mh-e-devel mailing list
> mh-e-devel@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/mh-e-devel
> 

-- 
Bill Wohler <wohler@newt.com>  http://www.newt.com/wohler/  GnuPG ID:610BD9AD
Maintainer of comp.mail.mh FAQ and MH-E. Vote Libertarian!
If you're passed on the right, you're in the wrong lane.


-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642