[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/add-log.el,v
From: |
Martin Rudalics |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/add-log.el,v |
Date: |
Sun, 14 Sep 2008 11:28:02 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Martin Rudalics <m061211> 08/09/14 11:28:01
Index: add-log.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/add-log.el,v
retrieving revision 1.223
retrieving revision 1.224
diff -u -b -r1.223 -r1.224
--- add-log.el 6 Sep 2008 19:47:14 -0000 1.223
+++ add-log.el 14 Sep 2008 11:28:00 -0000 1.224
@@ -414,6 +414,7 @@
(defvar change-log-find-head nil)
(defvar change-log-find-tail nil)
+(defvar change-log-find-window nil)
(defun change-log-goto-source-1 (tag regexp file buffer
&optional window first last)
@@ -456,7 +457,8 @@
;; Record this as first match when there's none.
(unless first (setq first last)))))))
(if (or last first)
- (with-selected-window (or window (display-buffer buffer))
+ (with-selected-window
+ (setq change-log-find-window (or window (display-buffer buffer)))
(if last
(progn
(when (or (< last (point-min)) (> last (point-max)))
@@ -511,7 +513,8 @@
;; We either have not found a suitable file name or `file-2'
;; provides a "better" file name wrt `point'. Go to the
;; buffer of `file-2' instead.
- (display-buffer (find-file-noselect file-2)))
+ (setq change-log-find-window
+ (display-buffer (find-file-noselect file-2))))
(t
(setq change-log-find-head
(list tag (concat "\\_<" (regexp-quote tag) "\\_>")
@@ -524,7 +527,7 @@
tag file)))))))))
(defun change-log-next-error (&optional argp reset)
- "Move to the Nth (default 1) next match in an Occur mode buffer.
+ "Move to the Nth (default 1) next match in a ChangeLog buffer.
Compatibility function for \\[next-error] invocations."
(interactive "p")
(let* ((argp (or argp 0))
@@ -544,10 +547,11 @@
(beginning-of-line)
;; if we found a place to visit...
(when (looking-at change-log-file-names-re)
+ (let (change-log-find-window)
(change-log-goto-source)
- ;; go to the file itself
- (let ((file (nth 2 change-log-find-head)))
- (when file (pop-to-buffer (find-file-noselect file))))))
+ (when change-log-find-window
+ ;; Select window displaying source file.
+ (select-window change-log-find-window)))))
(defvar change-log-mode-map
(let ((map (make-sparse-keymap)))
- [Emacs-diffs] Changes to emacs/lisp/add-log.el,v, Glenn Morris, 2008/09/05
- [Emacs-diffs] Changes to emacs/lisp/add-log.el,v, Glenn Morris, 2008/09/06
- [Emacs-diffs] Changes to emacs/lisp/add-log.el,v, Glenn Morris, 2008/09/06
- [Emacs-diffs] Changes to emacs/lisp/add-log.el,v,
Martin Rudalics <=
- [Emacs-diffs] Changes to emacs/lisp/add-log.el,v, Glenn Morris, 2008/09/15