[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: allout compatibility layer
From: |
Stefan Monnier |
Subject: |
Re: allout compatibility layer |
Date: |
Sun, 05 Mar 2006 16:20:24 -0500 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) |
> (when (featurep 'xemacs)
> (defun allout-mark-topic () (outline-mark-topic))
> ...)
If I were you I wouldn't check (featurep 'xemacs) since the XEmacs package
may also switch to the "allout-" prefix in the future and because Emacs also
used the "outline-" prefix until very recently (e.g. in Emacs-21.4).
You could check (fboundp 'allout-mark-topic) or (fboundp
'outline-mark-topic).
As for what you want to do, you can do
(defun allout-mark-topic (&rest args) (apply 'outline-mark-topic args))
which will just pass whichever args are provided. But what you really want
to use instead is:
(defalias 'allout-mark-topic 'outline-mark-topic)
-- Stefan
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Re: allout compatibility layer,
Stefan Monnier <=