Index: emacs/lisp/edmacro.el
diff -c emacs/lisp/edmacro.el:1.34 emacs/lisp/edmacro.el:1.35
*** emacs/lisp/edmacro.el:1.34 Wed Dec 8 01:10:13 2004
--- emacs/lisp/edmacro.el Mon May 16 11:33:46 2005
***************
*** 280,286 ****
(let ((str (buffer-substring (match-beginning 1)
(match-end 1))))
(unless (equal str "")
! (setq mac-counter (string-to-int str))))
t)
((looking-at "Format:[ \t]*\"\\([^\n]*\\)\"[ \t]*$")
(when edmacro-store-hook
--- 280,286 ----
(let ((str (buffer-substring (match-beginning 1)
(match-end 1))))
(unless (equal str "")
! (setq mac-counter (string-to-number str))))
t)
((looking-at "Format:[ \t]*\"\\([^\n]*\\)\"[ \t]*$")
(when edmacro-store-hook
***************
*** 698,704 ****
(times 1))
(setq pos (match-end 0))
(when (string-match "\\([0-9]+\\)\\*." word)
! (setq times (string-to-int (substring word 0 (match-end 1))))
(setq word (substring word (1+ (match-end 1)))))
(cond ((string-match "^<<.+>>$" word)
(setq key (vconcat (if (eq (key-binding [?\M-x])
--- 698,704 ----
(times 1))
(setq pos (match-end 0))
(when (string-match "\\([0-9]+\\)\\*." word)
! (setq times (string-to-number (substring word 0 (match-end 1))))
(setq word (substring word (1+ (match-end 1)))))
(cond ((string-match "^<<.+>>$" word)
(setq key (vconcat (if (eq (key-binding [?\M-x])
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
