🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

1 total messages Started by Kevin Rodgers Wed, 04 May 1994 21:44
[epoch 4.2] isearch-mode.el 1.4: isearch-mode-map meta-characters
#672
Author: Kevin Rodgers
Date: Wed, 04 May 1994 21:44
56 lines
2850 bytes
Without the following patch (which should work at least with emacs 18 as
well), an error occurs when isearch-mode.el is loaded in epoch:

	Key sequence n uses invalid prefix characters

That key sequence "n" is a single character, ?\356 (238 decimel).

`uname -a' prints:

	SunOS airedale 5.3 Generic sun4m sparc

ChangeLog entry:

Wed May  4 14:07:37 1994  Kevin Rodgers <kevinr@ihs.com>

	* isearch-mode-map: Explicitly set entries in the meta-prefix-
	char keymap (rather than depending on `char-to-string' to map
	meta-characters to escape sequences).

1.4
1494 lines
No id keywords (cm7)
*** Standard Input	Wed May  4 14:36:46 1994
--- isearch-mode.el	Wed May  4 14:08:21 1994
***************
*** 280,291 ****
        ;; keys as well, one full keymap per char of the prefix key.  It
        ;; would be simpler to disable the global keymap, and/or have a
        ;; default local key binding for any key not otherwise bound.
!       (define-key map (char-to-string meta-prefix-char) (make-keymap))
!       (setq i 0)
!       (while (< i len)
! 	(define-key map (char-to-string (+ 128 i)) ;; Needs to be generalized.
! 	  'isearch-other-meta-char)
! 	(setq i (1+ i)))
  
        (define-key map "\M-n" 'isearch-ring-advance)
        (define-key map "\M-p" 'isearch-ring-retreat)
--- 280,291 ----
        ;; keys as well, one full keymap per char of the prefix key.  It
        ;; would be simpler to disable the global keymap, and/or have a
        ;; default local key binding for any key not otherwise bound.
!       (let ((meta-map (make-keymap)))
! 	(define-key map (char-to-string meta-prefix-char) meta-map)
! 	(setq i 0)
! 	(while (< i len)
! 	  (aset meta-map i 'isearch-other-meta-char)
! 	  (setq i (1+ i))))
  
        (define-key map "\M-n" 'isearch-ring-advance)
        (define-key map "\M-p" 'isearch-ring-retreat)
-- 
Kevin Rodgers <kevinr@ihs.com>		Project Engineer
Information Handling Services		Electronic Systems Development
15 Inverness Way East, M/S A203		
Englewood CO 80112 USA			(303) 397-2599 [voice] / -2620 [fax]
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads