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

(change-log-mode): Make and set buffer-local variable

Browse source 
isearch-buffers-next-buffer-function to change-log-next-buffer.
Call isearch-buffers-minor-mode.
(change-log-next-buffer): New function.
This commit is contained in:
Juri Linkov 2007-10-22 23:45:05 +00:00
parent d240f431cb
commit 73b27641c5
2 changed files with 37 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/ChangeLog
View file

@ -1,3 +1,17 @@
2007-10-22 Juri Linkov <juri@jurta.org>
* isearch-multi.el: New file.
* isearch.el (isearch-search-string): After finding the next
occurrence switch to buffer isearch-buffers-current-buffer when
isearch-buffers-next-buffer-function is non-nil and
isearch-buffers-current-buffer is live.
* add-log.el (change-log-mode): Make and set buffer-local variable
isearch-buffers-next-buffer-function to change-log-next-buffer.
Call isearch-buffers-minor-mode.
(change-log-next-buffer): New function.
2007-10-22 Carsten Dominik <dominik@science.uva.nl>
* org.el (org-read-date-get-relative): New function.

24
lisp/add-log.el
View file

@ -760,7 +760,29 @@ Runs `change-log-mode-hook'.
'change-log-resolve-conflict)
(set (make-local-variable 'adaptive-fill-regexp) "\\s *")
(set (make-local-variable 'font-lock-defaults)
'(change-log-font-lock-keywords t nil nil backward-paragraph)))
'(change-log-font-lock-keywords t nil nil backward-paragraph))
(set (make-local-variable 'isearch-buffers-next-buffer-function)
'change-log-next-buffer)
(isearch-buffers-minor-mode))
(defun change-log-next-buffer (&optional buffer wrap)
"Return the next buffer in the series of ChangeLog file buffers.
This function is used for multiple buffers isearch.
A sequence of buffers is formed by ChangeLog files with decreasing
numeric file name suffixes in the directory of the initial ChangeLog
file were isearch was started."
(let* ((name (change-log-name))
(files (cons name (sort (file-expand-wildcards
(concat name "[-.][0-9]*"))
(lambda (a b)
(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))))))
;; It might be nice to have a general feature to replace this. The idea I
;; have is a variable giving a regexp matching text which should not be