Gnus development mailing list
 help / color / mirror / Atom feed
From: David Z Maze <dmaze@MIT.EDU>
Subject: Re: RMail functionality I miss
Date: Thu, 03 Jan 2002 12:13:31 -0500	[thread overview]
Message-ID: <y68k7uzs6h0.fsf@nerd-xing.mit.edu> (raw)
In-Reply-To: <m34rm4vuzn.fsf@quimbies.gnus.org> (Lars Magne Ingebrigtsen's message of "Thu, 03 Jan 2002 06:55:40 +0100")

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




  reply	other threads:[~2002-01-03 17:13 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
     [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       ` Karl Kleinpaste
2002-01-03  5:55         ` Lars Magne Ingebrigtsen
2002-01-03 17:13           ` David Z Maze [this message]
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

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=y68k7uzs6h0.fsf@nerd-xing.mit.edu \
    --to=dmaze@mit.edu \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
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).