Debian Bug report logs - #63920
xemacs21 foldout: cannot load - Invalid (FSF Emacs) key format [PATCH]

Toggle useless messages

Message #5 received at submit@bugs.debian.org (full text, mbox, reply):

From: dwitch <ydirson@altern.org>

To: Debian Bug Tracking System <submit@bugs.debian.org>

Subject: xemacs21 foldout: cannot load - Invalid (FSF Emacs) key format [PATCH]

Date: Thu, 11 May 2000 02:08:40 +0200

Package: xemacs21-support
Version: 21.1.8-2
Severity: normal

When loading "foldout", I invariably get a fatal error:

Signaling: (error "Invalid (FSF Emacs) key format (see doc of define-key)" M-C-down-mouse-1)
  define-key(#<keymap text-mode-map 3 entries 0x227c> [M-C-down-mouse-1] foldout-mouse-zoom)
  byte-code("..." [foldout-inhibit-key-bindings define-key outline-mode-map "" foldout-zoom-subtree "" foldout-exit-fold outline-minor-mode-map outline-minor-mode-prefix "" "" apply concat mapcar #<compiled-function (modifier) "...(56)" [vector modifier shift ?S control ?C meta ?M alt ?A hyper ?H super ?s error "invalid mouse modifier %s" ?\-] 4> foldout-mouse-modifiers modifiers vector intern "down-mouse-1" mouse-1 "down-mouse-2" mouse-2 "down-mouse-3" mouse-3 foldout-mouse-zoom foldout-mouse-show foldout-mouse-hide-or-exit provide foldout] 5)
  load-internal("foldout" nil nil nil nil nil)
  load("foldout")
  #<compiled-function (library) "...(4)" [load library] 2 814382 (list (read-library "Load Library: " load-path nil nil nil ...))>("foldout")
  call-interactively(load-library)
  command-execute(load-library t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)



The problem is with the following fragment, at the end of the file:

  (let* ((modifiers (apply 'concat
			   (mapcar (function
				    (lambda (modifier)
				      (vector
				       (cond
					 ((eq modifier 'shift) ?S)
					 ((eq modifier 'control) ?C)
					 ((eq modifier 'meta) ?M)
					 ((eq modifier 'alt) ?A)
					 ((eq modifier 'hyper) ?H)
					 ((eq modifier 'super) ?s)
					 (t (error "invalid mouse modifier %s"
						   modifier)))
				       ?-)))
				   foldout-mouse-modifiers)))
	 (mouse-1 (vector (intern (concat modifiers "down-mouse-1"))))
	 (mouse-2 (vector (intern (concat modifiers "down-mouse-2"))))
	 (mouse-3 (vector (intern (concat modifiers "down-mouse-3")))))


Replacing this useless mess with the following does the trick:

  (let* ((mouse-1 `(,@foldout-mouse-modifiers down-mouse-1))
	 (mouse-2 `(,@foldout-mouse-modifiers down-mouse-2))
	 (mouse-3 `(,@foldout-mouse-modifiers down-mouse-3)))


long live the macros !

-- System Information
Debian Release: 2.2
Architecture: i386
Kernel: Linux bylbo 2.2.14 #1 sam avr 22 03:24:31 CEST 2000 i586

Versions of packages xemacs21-support depends on:
ii  emacsen-common                1.4.9      Common facilities for all emacsen.

Message #10 received at 63920@bugs.debian.org (full text, mbox, reply):

From: James LewisMoss <dres@ioa.com>

To: dwitch <ydirson@altern.org>, 63920@bugs.debian.org

Subject: Re: Bug#63920: xemacs21 foldout: cannot load - Invalid (FSF Emacs) key format [PATCH]

Date: 10 May 2000 22:04:31 -0400

>>>>> On Thu, 11 May 2000 02:08:40 +0200, dwitch <ydirson@altern.org> said:

 ydirson> Package: xemacs21-support Version: 21.1.8-2 Severity: normal

 ydirson> When loading "foldout", I invariably get a fatal error:

 ydirson> Signaling: (error "Invalid (FSF Emacs) key format (see doc
 ydirson> of define-key)" M-C-down-mouse-1)
 ydirson>   define-key(#<keymap text-mode-map 3 entries 0x227c>
 ydirson>   [M-C-down-mouse-1] foldout-mouse-zoom) byte-code("..." 
 ydirson>   [foldout-inhibit-key-bindings define-key outline-mode-map
 ydirson>   "" foldout-zoom-subtree "" foldout-exit-fold
 ydirson>   outline-minor-mode-map outline-minor-mode-prefix "" ""
 ydirson>   apply concat mapcar #<compiled-function (modifier)
 ydirson>   "...(56)" [vector modifier shift ?S control ?C meta ?M alt
 ydirson>   ?A hyper ?H super ?s error "invalid mouse modifier %s"
 ydirson>   ?\-] 4> foldout-mouse-modifiers modifiers vector intern
 ydirson>   "down-mouse-1" mouse-1 "down-mouse-2" mouse-2
 ydirson>   "down-mouse-3" mouse-3 foldout-mouse-zoom
 ydirson>   foldout-mouse-show foldout-mouse-hide-or-exit provide
 ydirson>   foldout] 5) load-internal("foldout" nil nil nil nil nil)
 ydirson>   load("foldout")
 ydirson>   #<compiled-function (library) "...(4)" [load library] 2
 ydirson>   #814382 (list (read-library "Load Library: " load-path nil
 ydirson>   #nil nil ...))>("foldout")
 ydirson>   call-interactively(load-library)
 ydirson>   command-execute(load-library t)
 ydirson>   execute-extended-command(nil)
 ydirson>   call-interactively(execute-extended-command)


 ydirson> long live the macros !

Thanks for the bug report and patch.  I'll forward upstream and see if
they like as well.

Jim

-- 
@James LewisMoss <dres@ioa.com>         |  Blessed Be!
@    http://www.ioa.com/~dres           |  Linux is kewl!
@"Argue for your limitations and sure enough, they're yours." Bach

Message #19 received at 63920-done@bugs.debian.org (full text, mbox, reply):

From: James LewisMoss <dres@phoenixdsl.com>

To: 63920-done@bugs.debian.org

Subject: foldout mode loads and the area in question has been changed

Date: 16 Dec 2000 03:49:01 -0500

-- 
@James LewisMoss <dres@debian.org>      |  Blessed Be!
@    http://jimdres.home.mindspring.com |  Linux is kewl!
@"Argue for your limitations and sure enough, they're yours." Bach

Send a report that this bug log contains spam.