Mercurial > hg > xemacs-beta

diff lisp/utils/passwd.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents 43dd3413c7c7
children
line wrap: on
line diff
--- a/lisp/utils/passwd.el	Mon Aug 13 09:40:48 2007 +0200
+++ b/lisp/utils/passwd.el	Mon Aug 13 09:41:43 2007 +0200
@@ -69,7 +69,7 @@
 
     (while (< i 127)
       (aset s 0 i)
-      (or (and (boundp 'meta-prefix-char) (eq i meta-prefix-char))
+      (or (and (boundp 'meta-prefix-char) (eq (int-char i) meta-prefix-char))
 	  (define-key map s 'self-insert-command))
       (setq i (1+ i)))