Using saved parent location: http://bzr.savannah.gnu.org/r/emacs/trunk/ Now on revision 99430. ------------------------------------------------------------ revno: 99430 committer: Dan Nicolaescu branch nick: trunk timestamp: Sun 2010-01-31 20:58:35 -0800 message: (vc-bzr-dir-extra-headers): Add a header when a pending merge is detected. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-01-31 21:47:47 +0000 +++ lisp/ChangeLog 2010-02-01 04:58:35 +0000 @@ -1,3 +1,8 @@ +2010-02-01 Dan Nicolaescu + + * vc-bzr.el (vc-bzr-dir-extra-headers): Add a header when a + pending merge is detected. + 2010-01-31 Juri Linkov * progmodes/grep.el (zrgrep): Call `grep-compute-defaults' at the === modified file 'lisp/vc-bzr.el' --- lisp/vc-bzr.el 2010-01-29 23:43:31 +0000 +++ lisp/vc-bzr.el 2010-02-01 04:58:35 +0000 @@ -794,6 +794,12 @@ (buffer-string))) (shelve (vc-bzr-shelve-list)) (shelve-help-echo "Use M-x vc-bzr-shelve to create shelves") + (root-dir (vc-bzr-root dir)) + (pending-merge + (file-exists-p + (expand-file-name ".bzr/checkout/merge-hashes" root-dir))) + (pending-merge-help-echo + (format "A merge has been performed.\nA commit from the top-level directory (%s)\nis required before being able to check in anything else" root-dir)) (light-checkout (when (string-match ".+light checkout root: \\(.+\\)$" str) (match-string 1 str))) @@ -819,24 +825,32 @@ (propertize "Checkout of branch : " 'face 'font-lock-type-face) (propertize light-checkout-branch 'face 'font-lock-variable-name-face) "\n")) - (if shelve - (concat - (propertize "Shelves :\n" 'face 'font-lock-type-face - 'help-echo shelve-help-echo) - (mapconcat - (lambda (x) - (propertize x - 'face 'font-lock-variable-name-face - 'mouse-face 'highlight - 'help-echo "mouse-3: Show shelve menu\nP: Apply and remove shelf (pop)\nC-k: Delete shelf" - 'keymap vc-bzr-shelve-map)) - shelve "\n")) - (concat - (propertize "Shelves : " 'face 'font-lock-type-face - 'help-echo shelve-help-echo) - (propertize "No shelved changes" - 'help-echo shelve-help-echo - 'face 'font-lock-variable-name-face)))))) + (when pending-merge + (concat + (propertize "Warning : " 'face 'font-lock-warning-face + 'help-echo pending-merge-help-echo) + (propertize "Pending merges, commit recommended before any other action" + 'help-echo pending-merge-help-echo + 'face 'font-lock-warning-face) + "\n")) + (if shelve + (concat + (propertize "Shelves :\n" 'face 'font-lock-type-face + 'help-echo shelve-help-echo) + (mapconcat + (lambda (x) + (propertize x + 'face 'font-lock-variable-name-face + 'mouse-face 'highlight + 'help-echo "mouse-3: Show shelve menu\nA: Apply and keep shelf\nP: Apply and remove shelf (pop)\nS: Snapshot to a shelf\nC-k: Delete shelf" + 'keymap vc-bzr-shelve-map)) + shelve "\n")) + (concat + (propertize "Shelves : " 'face 'font-lock-type-face + 'help-echo shelve-help-echo) + (propertize "No shelved changes" + 'help-echo shelve-help-echo + 'face 'font-lock-variable-name-face)))))) (defun vc-bzr-shelve (name) "Create a shelve." ------------------------------------------------------------ revno: 99429 committer: Juri Linkov branch nick: trunk timestamp: Sun 2010-01-31 23:47:47 +0200 message: * progmodes/grep.el (zrgrep): Call `grep-compute-defaults' at the beginning of interactive spec like all other grep commands do. Put "all" in front of "gz". (Bug#5260) diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-01-30 04:22:37 +0000 +++ lisp/ChangeLog 2010-01-31 21:47:47 +0000 @@ -1,3 +1,9 @@ +2010-01-31 Juri Linkov + + * progmodes/grep.el (zrgrep): Call `grep-compute-defaults' at the + beginning of interactive spec like all other grep commands do. + Put "all" in front of "gz". (Bug#5260) + 2010-01-29 Dan Nicolaescu * vc-bzr.el (vc-bzr-after-dir-status): Match another renaming indicator. === modified file 'lisp/progmodes/grep.el' --- lisp/progmodes/grep.el 2010-01-13 08:35:10 +0000 +++ lisp/progmodes/grep.el 2010-01-31 21:47:47 +0000 @@ -996,26 +996,34 @@ Like `rgrep' but uses `zgrep' for `grep-program', sets the default file name to `*.gz', and sets `grep-highlight-matches' to `always'." (interactive - (let ((grep-program "zgrep") - (grep-find-template nil) ; output of `grep-compute-defaults' - (grep-find-command nil) - (grep-host-defaults-alist nil) - (grep-files-aliases '(("*.gz" . "*.gz") ; for `grep-read-files' - ("all" . "* .*")))) - ;; Recompute defaults using let-bound values above. + (progn + ;; Compute standard default values. (grep-compute-defaults) - (cond - ((and grep-find-command (equal current-prefix-arg '(16))) - (list (read-from-minibuffer "Run: " grep-find-command - nil nil 'grep-find-history))) - ((not grep-find-template) - (error "grep.el: No `grep-find-template' available")) - (t (let* ((regexp (grep-read-regexp)) - (files (grep-read-files regexp)) - (dir (read-directory-name "Base directory: " - nil default-directory t)) - (confirm (equal current-prefix-arg '(4)))) - (list regexp files dir confirm grep-find-template)))))) + ;; Compute the default zrgrep command by running `grep-compute-defaults' + ;; for grep program "zgrep", but not changing global values. + (let ((grep-program "zgrep") + ;; Don't change global values for variables computed + ;; by `grep-compute-defaults'. + (grep-find-template nil) + (grep-find-command nil) + (grep-host-defaults-alist nil) + ;; Use for `grep-read-files' + (grep-files-aliases '(("all" . "* .*") + ("gz" . "*.gz")))) + ;; Recompute defaults using let-bound values above. + (grep-compute-defaults) + (cond + ((and grep-find-command (equal current-prefix-arg '(16))) + (list (read-from-minibuffer "Run: " grep-find-command + nil nil 'grep-find-history))) + ((not grep-find-template) + (error "grep.el: No `grep-find-template' available")) + (t (let* ((regexp (grep-read-regexp)) + (files (grep-read-files regexp)) + (dir (read-directory-name "Base directory: " + nil default-directory t)) + (confirm (equal current-prefix-arg '(4)))) + (list regexp files dir confirm grep-find-template))))))) ;; Set `grep-highlight-matches' to `always' ;; since `zgrep' puts filters in the grep output. (let ((grep-highlight-matches 'always)) ------------------------------------------------------------ revno: 99428 committer: Juri Linkov branch nick: trunk timestamp: Sun 2010-01-31 23:28:22 +0200 message: * .bzrignore: Add TAGS-LISP. diff: === modified file '.bzrignore' --- .bzrignore 2010-01-24 08:42:22 +0000 +++ .bzrignore 2010-01-31 21:28:22 +0000 @@ -20,6 +20,7 @@ stamp_BLD subdirs.el TAGS +TAGS-LISP info/* leim/leim-list.el leim/quail/*.el === modified file 'ChangeLog' --- ChangeLog 2010-01-23 22:15:22 +0000 +++ ChangeLog 2010-01-31 21:28:22 +0000 @@ -1,3 +1,7 @@ +2010-01-31 Juri Linkov + + * .bzrignore: Add TAGS-LISP. + 2010-01-23 Giorgos Keramidas (tiny change) * configure.in: Check for utmp.h availability (FreeBSD 9.x lacks ------------------------------------------------------------ revno: 99427 [merge] committer: Kenichi Handa branch nick: trunk timestamp: Sun 2010-01-31 16:08:07 +0900 message: font.c (font_parse_xlfd): If FONT is a font-entity and pixel size in NAME is invalid, return -1. (Bug#5396) diff: === modified file 'src/ChangeLog' --- src/ChangeLog 2010-01-31 05:23:09 +0000 +++ src/ChangeLog 2010-01-31 07:01:05 +0000 @@ -1,3 +1,8 @@ +2010-01-31 Kenichi Handa + + * font.c (font_parse_xlfd): If FONT is a font-entity and pixel + size in NAME is invalid, return -1 (Bug#5396). + 2010-01-31 Chong Yidong * nsterm.m (ns_defined_color): Block input. Suggested by Mike === modified file 'src/font.c' --- src/font.c 2010-01-13 08:35:10 +0000 +++ src/font.c 2010-01-31 06:46:53 +0000 @@ -1122,6 +1122,8 @@ val = INTERN_FIELD (XLFD_PIXEL_INDEX); if (INTEGERP (val)) ASET (font, FONT_SIZE_INDEX, val); + else if (FONT_ENTITY_P (font)) + return -1; else { double point_size = -1; ------------------------------------------------------------ Use --include-merges or -n0 to see merged revisions.