[Emacs-diffs] Changes to emacs/lisp/edmacro.el

[Juanma Barranquero]

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])