From 6fffc9003cf1a2677f04f6bc53ee96029816b3a9 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 15 Jan 2011 12:42:23 -0800 Subject: [PATCH] bzrmerge.el trivia. * admin/bzrmerge.el (bzrmerge-missing): Add another skip indicator. (bzrmerge-resolve): Also ignore cl-loaddefs.el. --- admin/ChangeLog | 5 +++++ admin/bzrmerge.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/admin/ChangeLog b/admin/ChangeLog index 5807863a91..0fdd096789 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog @@ -1,3 +1,8 @@ +2011-01-15 Glenn Morris + + * bzrmerge.el (bzrmerge-missing): Add another skip indicator. + (bzrmerge-resolve): Also ignore cl-loaddefs.el. + 2011-01-14 Glenn Morris * admin.el (set-copyright): Also handle \year in refcards/*.tex. diff --git a/admin/bzrmerge.el b/admin/bzrmerge.el index ca10d2a87a..6764cbf853 100644 --- a/admin/bzrmerge.el +++ b/admin/bzrmerge.el @@ -115,7 +115,7 @@ are both lists of revnos, in oldest-first order." (re-search-forward "^message:\n") (while (and (not skip) (re-search-forward - "back[- ]?port\\|merge\\|re-?generate\\|bump version" nil t)) + "back[- ]?port\\|merge\\|sync\\|re-?generate\\|bump version" nil t)) (let ((str (buffer-substring (line-beginning-position) (line-end-position)))) (when (string-match "\\` *" str) @@ -173,7 +173,8 @@ are both lists of revnos, in oldest-first order." )) ;; Try to resolve the conflicts. (cond - ((member file '("configure" "lisp/ldefs-boot.el")) + ((member file '("configure" "lisp/ldefs-boot.el" + "lisp/emacs-lisp/cl-loaddefs.el")) (call-process "bzr" nil t nil "revert" file) (revert-buffer nil 'noconfirm)) (t -- 2.20.1