mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-53

Browse source 
Merge from emacs--cvs-trunk--0

Patches applied:

 * emacs--cvs-trunk--0  (patch 302-319)

   - Update from CVS
   - Merge from gnus--rel--5.10

 * gnus--rel--5.10  (patch 69)

   - Update from CVS
This commit is contained in:
Miles Bader 2005-05-20 04:22:05 +00:00
commit 64e9342958
328 changed files with 7098 additions and 4691 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/edmacro.el
View file

@ -280,7 +280,7 @@ or nil, use a compact 80-column format."
(let ((str (buffer-substring (match-beginning 1)
(match-end 1))))
(unless (equal str "")
(setq mac-counter (string-to-int str))))
(setq mac-counter (string-to-number str))))
t)
((looking-at "Format:[ \t]*\"\\([^\n]*\\)\"[ \t]*$")
(when edmacro-store-hook
@ -698,7 +698,7 @@ This function assumes that the events can be stored in a string."
(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 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])