From xemacs-m  Tue Dec 10 15:22:48 1996
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19]) by xemacs.cs.uiuc.edu (8.8.3/8.8.3) with ESMTP id PAA25809 for <xemacs-beta@xemacs.org>; Tue, 10 Dec 1996 15:22:42 -0600 (CST)
Received: (from steve@localhost)
          by altair.xemacs.org (8.8.4/8.8.4)
	  id NAA21439; Tue, 10 Dec 1996 13:32:36 -0800
Sender: steve@xemacs.org
To: xemacs-beta@xemacs.org
Subject: Re: keymap problem with xemacs-19.15-b3 on Linux only
References: <199612102107.NAA10998@ws1.leonora.xo.com>
X-Url: http://www.miranova.com/%7Esteve/
Mail-Copies-To: never
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@miranova.com>
In-Reply-To: Vladimir Ivanovic's message of Tue, 10 Dec 1996 13:07:04 -0800
Mime-Version: 1.0 (generated by tm-edit 7.95)
Content-Type: text/plain; charset=US-ASCII
Date: 10 Dec 1996 13:32:36 -0800
Message-ID: <m27mmqqe4r.fsf@altair.xemacs.org>
Lines: 45
X-Mailer: Red Gnus v0.72/XEmacs 20.0

>>>>> "Vladimir" == Vladimir Ivanovic <vladimir@ws1.leonora.xo.com> writes:

Vladimir> I get 
Vladimir>     Wrong type argument: listp, #<keymap 0 entries 0xda1>

Does this patch make things any better?

*** lisp/electric/ebuff-menu.el~	Wed Dec  4 22:40:38 1996
--- lisp/electric/ebuff-menu.el	Tue Dec 10 13:27:02 1996
***************
*** 174,182 ****
  (if electric-buffer-menu-mode-map
      nil
    (let ((map (make-keymap)) (submap (make-keymap)))
!     (fillarray (car (cdr map)) 'Electric-buffer-menu-undefined)
      (define-key map "\e" submap)
!     (fillarray (car (cdr submap)) 'Electric-buffer-menu-undefined)
      (define-key map "\C-z" 'suspend-emacs)
      (define-key map "v" 'Electric-buffer-menu-mode-view-buffer)
      (define-key map (char-to-string help-char) 'Helper-help)
--- 174,191 ----
  (if electric-buffer-menu-mode-map
      nil
    (let ((map (make-keymap)) (submap (make-keymap)))
!     ;(fillarray (car (cdr map)) 'Electric-buffer-menu-undefined) ; FSF
!     (let ((i 0))
!       (while (< i 128)
! 	(define-key map (make-string 1 i) 'Electric-buffer-menu-undefined)
! 	(setq i (1+ i))))
      (define-key map "\e" submap)
!     ;(fillarray (car (cdr submap)) 'Electric-buffer-menu-undefined) ; FSF
!     (let ((map2 (lookup-key map "\e"))
! 	   (i 0))
!       (while (< i 128)
! 	(define-key map2 (make-string 1 i) 'Electric-buffer-menu-undefined)
! 	(setq i (1+ i))))
      (define-key map "\C-z" 'suspend-emacs)
      (define-key map "v" 'Electric-buffer-menu-mode-view-buffer)
      (define-key map (char-to-string help-char) 'Helper-help)

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.
"Bill Clinton is a bore.  He doesn't have a creative bone in his
body."  -- David Brinkley

