/[emacs]/emacs/lisp/edmacro.el
ViewVC logotype

Diff of /emacs/lisp/edmacro.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30.6.3 by miles, Mon Oct 4 01:04:15 2004 UTC revision 1.30.6.4 by miles, Wed Dec 8 05:21:00 2004 UTC
# Line 1  Line 1 
1  ;;; edmacro.el --- keyboard macro editor  ;;; edmacro.el --- keyboard macro editor
2    
3  ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.  ;; Copyright (C) 1993, 1994, 2004 Free Software Foundation, Inc.
4    
5  ;; Author: Dave Gillespie <daveg@synaptics.com>  ;; Author: Dave Gillespie <daveg@synaptics.com>
6  ;; Maintainer: Dave Gillespie <daveg@synaptics.com>  ;; Maintainer: Dave Gillespie <daveg@synaptics.com>
# Line 28  Line 28 
28    
29  ;;; Usage:  ;;; Usage:
30  ;;  ;;
31  ;; The `C-x C-k' (`edit-kbd-macro') command edits a keyboard macro  ;; The `C-x C-k e' (`edit-kbd-macro') command edits a keyboard macro
32  ;; in a special buffer.  It prompts you to type a key sequence,  ;; in a special buffer.  It prompts you to type a key sequence,
33  ;; which should be one of:  ;; which should be one of:
34  ;;  ;;
# Line 266  or nil, use a compact 80-column format." Line 266  or nil, use a compact 80-column format."
266                              (and b (commandp b) (not (arrayp b))                              (and b (commandp b) (not (arrayp b))
267                                   (not (kmacro-extract-lambda b))                                   (not (kmacro-extract-lambda b))
268                                   (or (not (fboundp b))                                   (or (not (fboundp b))
269                                       (not (arrayp (symbol-function b))))                                       (not (or (arrayp (symbol-function b))
270                                                  (get b 'kmacro))))
271                                   (not (y-or-n-p                                   (not (y-or-n-p
272                                         (format "Key %s is already defined; %s"                                         (format "Key %s is already defined; %s"
273                                                 (edmacro-format-keys key 1)                                                 (edmacro-format-keys key 1)
# Line 655  The string represents the same events; M Line 656  The string represents the same events; M
656  This function assumes that the events can be stored in a string."  This function assumes that the events can be stored in a string."
657    (setq seq (copy-sequence seq))    (setq seq (copy-sequence seq))
658    (loop for i below (length seq) do    (loop for i below (length seq) do
659          (when (< (aref seq i) 0)          (when (logand (aref seq i) 128)
660            (setf (aref seq i) (logand (aref seq i) 127))))            (setf (aref seq i) (logand (aref seq i) 127))))
661    seq)    seq)
662    

Legend:
Removed from v.1.30.6.3  
changed lines
  Added in v.1.30.6.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26