From xemacs-m  Tue Jun 17 20:50:27 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id UAA15670
	for <xemacs-beta@xemacs.org>; Tue, 17 Jun 1997 20:50:26 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id DAA20946; Wed, 18 Jun 1997 03:50:26 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: [PATCH] Edmacro update
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 18 Jun 1997 03:50:25 +0200
Message-ID: <kigpvtkd6hq.fsf@jagor.srce.hr>
Lines: 33
X-Mailer: Gnus v5.4.52/XEmacs 20.3(beta7)

This patch will make (kbd "M-123"), (kbd "M--256") and such behave as
documented:

--- lisp/utils/edmacro.el.orig	Wed Jun 18 03:47:53 1997
+++ lisp/utils/edmacro.el	Wed Jun 18 03:47:55 1997
@@ -5,7 +5,7 @@
 ;; Author: Dave Gillespie <daveg@synaptics.com>
 ;;         Hrvoje Niksic <hniksic@srce.hr>  -- XEmacs port
 ;; Maintainer: Hrvoje Niksic <hniksic@srce.hr>
-;; Version: 3.15
+;; Version: 3.16
 ;; Keywords: abbrev
 
 ;; This file is part of XEmacs.
@@ -538,6 +538,12 @@
 	      (if (/= (length word) 2)
 		  (error "^ must be followed by one character"))
 	      `((control ,(aref word 1))))
+	     ((string-match "^M--?[0-9]+$" word)
+	      ;; Special case: M- followed by an optional hyphen and
+	      ;; one or more digits
+	      (mapcar (lambda (digit)
+			(list 'meta digit))
+		      (substring word 2)))
 	     ((string-match "^\\([MCSsAH]\\|Sh\\)-" word)
 	      ;; Parse C-* and stuff
 	      (list


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Oh lord won't you buy me a color TV...

