mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

* lisp/vc/add-log.el (change-log-next-buffer): Don't create an empty

Browse Source 
buffer "ChangeLog" when the current buffer doesn't match ChangeLog.[0-9].
Return the current buffer if no files match the default pattern
ChangeLog.[0-9].  Signal "end of multi" when file is nil.

Fixes: debbugs:18547
This commit is contained in:
Juri Linkov 2014-09-25 23:55:58 +03:00
parent 686b21966f
commit b8e352d077
2 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2014-09-25 Juri Linkov <juri@jurta.org>
* vc/add-log.el (change-log-next-buffer): Don't create an empty
buffer "ChangeLog" when the current buffer doesn't match ChangeLog.[0-9].
Return the current buffer if no files match the default pattern
ChangeLog.[0-9]. Signal "end of multi" when file is nil. (Bug#18547)
2014-09-25 Stefan Monnier <monnier@iro.umontreal.ca>
* net/tramp-sh.el (tramp-sh-handle-vc-registered): Don't modify

17
lisp/vc/add-log.el
View File

@ -1097,12 +1097,17 @@ file were isearch was started."
(ignore-errors
(version< (substring b (length name))
(substring a (length name))))))))
(files (if isearch-forward files (reverse files))))
(find-file-noselect
(if wrap
(car files)
(cadr (member (file-name-nondirectory (buffer-file-name buffer))
files))))))
(files (if isearch-forward files (reverse files)))
(file (if wrap
(car files)
(cadr (member (file-name-nondirectory (buffer-file-name buffer))
files)))))
;; If there are no files that match the default pattern ChangeLog.[0-9],
;; return the current buffer to force isearch wrapping to its beginning.
;; If file is nil, multi-isearch-search-fun will signal "end of multi".
(if (file-exists-p file)
(find-file-noselect file)
(current-buffer))))
(defun change-log-fill-forward-paragraph (n)
"Cut paragraphs so filling preserves open parentheses at beginning of lines."