Using saved parent location: http://bzr.savannah.gnu.org/r/emacs/trunk/ Now on revision 99628. ------------------------------------------------------------ revno: 99628 committer: Andreas Schwab branch nick: emacs timestamp: Sun 2010-03-07 18:34:40 +0100 message: Don't end parsing rfc822 addresses prematurely (Bug#5692) * mail/rfc822.el (rfc822-addresses): Move catch clause down around call to rfc822-bad-address. (Bug#5692) diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-03-07 14:45:53 +0000 +++ lisp/ChangeLog 2010-03-07 17:34:40 +0000 @@ -1,3 +1,8 @@ +2010-03-07 Andreas Schwab + + * mail/rfc822.el (rfc822-addresses): Move catch clause down around + call to rfc822-bad-address. (Bug#5692) + 2010-03-07 Štěpán Němec (tiny change) * vc-git.el (vc-git-annotate-extract-revision-at-line): Use === modified file 'lisp/mail/rfc822.el' --- lisp/mail/rfc822.el 2010-01-13 08:35:10 +0000 +++ lisp/mail/rfc822.el 2010-03-07 17:34:40 +0000 @@ -296,26 +296,26 @@ ;; initial value to prevent rfc822-bad-address from ;; raising a wrong-type-argument error (rfc822-address-start (point))) - (catch 'address ; this is for rfc822-bad-address - (rfc822-nuke-whitespace) - (while (not (eobp)) - (setq rfc822-address-start (point)) - (setq tem - (cond ((rfc822-looking-at ?\,) - nil) - ((looking-at "[][\000-\037@;:\\.>)]") - (forward-char) - (rfc822-bad-address - (format "Strange character \\%c found" - (preceding-char)))) - (t - (rfc822-addresses-1 t)))) - (cond ((null tem)) - ((stringp tem) - (setq list (cons tem list))) - (t - (setq list (nconc (nreverse tem) list))))) - (nreverse list)))) + (rfc822-nuke-whitespace) + (while (not (eobp)) + (setq rfc822-address-start (point)) + (setq tem + (cond ((rfc822-looking-at ?\,) + nil) + ((looking-at "[][\000-\037@;:\\.>)]") + (forward-char) + (catch 'address ; this is for rfc822-bad-address + (rfc822-bad-address + (format "Strange character \\%c found" + (preceding-char))))) + (t + (rfc822-addresses-1 t)))) + (cond ((null tem)) + ((stringp tem) + (setq list (cons tem list))) + (t + (setq list (nconc (nreverse tem) list))))) + (nreverse list))) (and buf (kill-buffer buf)))))) (provide 'rfc822) ------------------------------------------------------------ revno: 99627 committer: Chong Yidong branch nick: trunk timestamp: Sun 2010-03-07 09:45:53 -0500 message: Correct pathname for vc-git-annotate-extract-revision-at-line (Bug#5657) * vc-git.el (vc-git-annotate-extract-revision-at-line): Use vc-git-root as default direcotry for revision path (Bug#5657). diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-03-06 18:23:23 +0000 +++ lisp/ChangeLog 2010-03-07 14:45:53 +0000 @@ -1,3 +1,8 @@ +2010-03-07 Štěpán Němec (tiny change) + + * vc-git.el (vc-git-annotate-extract-revision-at-line): Use + vc-git-root as default direcotry for revision path (Bug#5657). + 2010-03-06 Chong Yidong * calculator.el (calculator): Don't bind split-window-keep-point === modified file 'lisp/vc-git.el' --- lisp/vc-git.el 2010-03-06 04:05:47 +0000 +++ lisp/vc-git.el 2010-03-07 14:45:53 +0000 @@ -703,7 +703,8 @@ (when (looking-at "\\([0-9a-f^][0-9a-f]+\\) \\(\\([^(]+\\) \\)?") (let ((revision (match-string-no-properties 1))) (if (match-beginning 2) - (cons revision (expand-file-name (match-string-no-properties 3))) + (cons revision (expand-file-name (match-string-no-properties 3) + (vc-git-root default-directory))) revision))))) ;;; TAG SYSTEM ------------------------------------------------------------ revno: 99626 committer: Chong Yidong branch nick: trunk timestamp: Sat 2010-03-06 15:35:04 -0500 message: NEWS: Clarify last change. diff: === modified file 'etc/NEWS' --- etc/NEWS 2010-03-06 20:33:04 +0000 +++ etc/NEWS 2010-03-06 20:35:04 +0000 @@ -436,7 +436,9 @@ ** The Lisp reader turns integers that are too large/small into floats. For instance, on machines where `536870911' is the largest integer, reading `536870912' gives the floating-point object `536870912.0'. -This change does not change how integers overflow. + +This change only concerns the Lisp reader; it does not affect how +actual integer objects overflow. --- ** Several obsolete functions removed.