From xemacs-m  Wed Jul  9 23:06:33 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id XAA25210
	for <xemacs-beta@xemacs.org>; Wed, 9 Jul 1997 23:06:33 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.6/8.8.6) id VAA10781;
	Wed, 9 Jul 1997 21:09:34 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: hide-ifdef again
References: <199707100313.XAA23815@spacely.icd.teradyne.com>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@xemacs.org>
In-Reply-To: Vinnie Shelton's message of "Wed, 09 Jul 1997 23:13:55 -0400"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 09 Jul 1997 21:09:34 -0700
Message-ID: <m24ta3tuo1.fsf@altair.xemacs.org>
Lines: 48
X-Mailer: Gnus v5.4.62/XEmacs 20.3(beta13) - "Brussels"

Vinnie Shelton <shelton@icd.teradyne.com> writes:

> Yup.  Steve, the patch applied cleanly to 19.15, but hide-ifdef
> still doesn't work, in exactly the way Neal pointed out.

I made a last minute change that I think worked.  Here is the full
patch applied to 20.3-beta11.

1997-07-08  Steven L Baur  <steve@altair.xemacs.org>

	* modes/hideif.el (hide-ifdef-mode): Include modemap in call to
	`add-minor-mode'.

	* modes/hideif.el (hide-ifdef-mode-submap): Correctly specify the
	current local map.

[Do not apply this patch to 20.3-beta12, it is already there]

Index: lisp/modes/hideif.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/modes/hideif.el,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -r1.1.1.1 -r1.2
--- hideif.el	1996/12/18 22:42:45	1.1.1.1
+++ hideif.el	1997/07/09 04:31:22	1.2
@@ -138,7 +138,7 @@
   (define-key hide-ifdef-mode-submap "\C-s" 'show-ifdef-block)
 
   (define-key hide-ifdef-mode-submap "\C-q" 'hide-ifdef-toggle-read-only)
-  (let ((where (where-is-internal 'toggle-read-only '(keymap) t)))
+  (let ((where (where-is-internal 'toggle-read-only nil t)))
     (if where
 	(define-key hide-ifdef-mode-submap
 	  where
@@ -169,7 +169,7 @@
 ;                minor-mode-alist)))
 ;; XEmacs: do it right.
 ;;;###autoload
-(add-minor-mode 'hide-ifdef-mode " Ifdef")
+(add-minor-mode 'hide-ifdef-mode " Ifdef" 'hide-ifdef-mode-map)
 
 ;; fix c-mode syntax table so we can recognize whole symbols.
 (defvar hide-ifdef-syntax-table

-- 
steve@calag.com baur
Unsolicited commercial e-mail will be billed at $250/message.

