* Re: RMail functionality I miss
[not found] ` <m3itakxcxd.fsf@quimbies.gnus.org>
@ 2002-01-03 5:52 ` Karl Kleinpaste
2002-01-03 5:55 ` Lars Magne Ingebrigtsen
0 siblings, 1 reply; 5+ messages in thread
From: Karl Kleinpaste @ 2002-01-03 5:52 UTC (permalink / raw)
Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
> I've now implemented this. (This is the first test. :-) )
Sweep region in *Article* buffer, hit `F', and get this trace:
Signaling: (void-variable mark-active)
#<compiled-function nil "...(24)" [mark-active gnus-article-current article gnus-summary-followup mark] 4 ("/home/karl/Emacs/Gnus/gnus-art.elc" . 125119) nil>()
call-interactively(gnus-article-followup-with-original)
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: RMail functionality I miss
2002-01-03 5:52 ` RMail functionality I miss Karl Kleinpaste
@ 2002-01-03 5:55 ` Lars Magne Ingebrigtsen
2002-01-03 17:13 ` David Z Maze
0 siblings, 1 reply; 5+ messages in thread
From: Lars Magne Ingebrigtsen @ 2002-01-03 5:55 UTC (permalink / raw)
Karl Kleinpaste <karl@charcoal.com> writes:
> Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
>> I've now implemented this. (This is the first test. :-) )
>
> Sweep region in *Article* buffer, hit `F', and get this trace:
>
> Signaling: (void-variable mark-active)
Another Emacs/XEmacs incompatibility I'd forgotten.
I find this is the code:
(defun gnus-region-active-p ()
"Say whether the region is active."
(and (boundp 'transient-mark-mode)
transient-mark-mode
(boundp 'mark-active)
mark-active))
But that's not really what we want here, is it? I want this to work
even though `transient-mark-mode' isn't in use. So I could just make
a new one that doesn't include that test.
But the XEmacs version of this function is:
(defalias 'gnus-region-active-p 'region-active-p)
Does that include the transient mark mode stuff, or not?
--
(domestic pets only, the antidote for overdose, milk.)
larsi@gnus.org * Lars Magne Ingebrigtsen
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: RMail functionality I miss
2002-01-03 5:55 ` Lars Magne Ingebrigtsen
@ 2002-01-03 17:13 ` David Z Maze
2002-01-03 17:29 ` Lars Magne Ingebrigtsen
0 siblings, 1 reply; 5+ messages in thread
From: David Z Maze @ 2002-01-03 17:13 UTC (permalink / raw)
Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
> (defun gnus-region-active-p ()
> "Say whether the region is active."
> (and (boundp 'transient-mark-mode)
> transient-mark-mode
> (boundp 'mark-active)
> mark-active))
>
> But that's not really what we want here, is it? I want this to work
> even though `transient-mark-mode' isn't in use. So I could just
> make a new one that doesn't include that test.
Are you sure you don't mean
(defun gnus-region-active-p ()
"Say whether the region is active."
(if (boundp 'transient-mark-mode)
transient-mark-mode
(if (boundp 'mark-active)
mark-active
nil)))
instead? The function as quoted above returns t if
transient-mark-mode exists at all (either t or nil), and tries to
evaluate transient-mark-mode only if it's unbound.
--
David Maze dmaze@mit.edu http://www.mit.edu/~dmaze/
"Theoretical politics is interesting. Politicking should be illegal."
-- Abra Mitchell
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: RMail functionality I miss
2002-01-03 17:13 ` David Z Maze
@ 2002-01-03 17:29 ` Lars Magne Ingebrigtsen
0 siblings, 0 replies; 5+ messages in thread
From: Lars Magne Ingebrigtsen @ 2002-01-03 17:29 UTC (permalink / raw)
David Z Maze <dmaze@MIT.EDU> writes:
>> (defun gnus-region-active-p ()
>> "Say whether the region is active."
>> (and (boundp 'transient-mark-mode)
>> transient-mark-mode
>> (boundp 'mark-active)
>> mark-active))
[...]
> The function as quoted above returns t if transient-mark-mode exists
> at all (either t or nil), and tries to evaluate transient-mark-mode
> only if it's unbound.
No, it evals to non-nil if all the four clauses eval to non-nil.
--
(domestic pets only, the antidote for overdose, milk.)
larsi@gnus.org * Lars Magne Ingebrigtsen
^ permalink raw reply [flat|nested] 5+ messages in thread
[parent not found: <81ell6t40s.fsf@zion.bpnetworks.com>]
end of thread, other threads:[~2002-01-12 5:02 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
[not found] <usneab4ad.fsf@verizon.net>
[not found] ` <m3wuz1wlhl.fsf@quimbies.gnus.org>
[not found] ` <87heq513lx.fsf@nomad.consult-meyers.com>
[not found] ` <m3itakxcxd.fsf@quimbies.gnus.org>
2002-01-03 5:52 ` RMail functionality I miss Karl Kleinpaste
2002-01-03 5:55 ` Lars Magne Ingebrigtsen
2002-01-03 17:13 ` David Z Maze
2002-01-03 17:29 ` Lars Magne Ingebrigtsen
[not found] ` <81ell6t40s.fsf@zion.bpnetworks.com>
[not found] ` <m3666gae8i.fsf@quimbies.gnus.org>
[not found] ` <81advs8miw.fsf@zion.bpnetworks.com>
[not found] ` <m3bsg8v3n6.fsf@quimbies.gnus.org>
[not found] ` <814rm0oxhp.fsf@zion.bpnetworks.com>
[not found] ` <m3lmf4tqqg.fsf@quimbies.gnus.org>
2002-01-12 5:02 ` Karl Kleinpaste
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).