+2004-05-23 Juri Linkov <juri@jurta.org>
+
+ * info.el (Info-index-nodes): New var and fun.
+ (Info-goto-index, Info-index, info-apropos)
+ (Info-find-emacs-command-nodes): Rewrite to use Info-index-nodes.
+ (Info-index): Fix docstring. Store and restore Info-history-list.
+ (Info-complete-nodes): New var.
+ (Info-complete-menu-item): Use it.
+ (Info-index-node): New fun.
+ (Info-final-node, Info-forward-node, Info-backward-node)
+ (Info-build-toc, Info-try-follow-nearest-node, Info-fontify-node):
+ Use Info-index-node.
+ (Info-extract-menu-item, Info-extract-menu-counting): Set second
+ arg of `Info-extract-menu-node-name' to non-nil for index nodes.
+ (Info-find-node-2): If a node with period in its name not found,
+ try to find a node without the name part after period.
+ (Info-select-node): Call Info-fontify-node only if
+ Info-fontify-maximum-menu-size is not nil.
+ (info-apropos): Set Info-fontify-maximum-menu-size to nil.
+ (Info-find-emacs-command-nodes, Info-goto-emacs-command-node):
+ Preserve Info-history-list.
+ (Info-toc): Set Info-current-file.
+ (Info-build-toc): Move point to the beginning of the buffer.
+ Add main-file variable.
+ (Info-dir-remove-duplicates, Info-history, Info-toc, info-apropos):
+ Use backslashed representation of the control character ^_.
+
+ * textmodes/texinfmt.el (texinfo-print-index): Print index line
+ numbers in the new Texinfo 4.7 format.
+
+ * add-log.el (change-log-font-lock-keywords): Remove `:' from
+ regexps for function and variable names.
+
+ * descr-text.el (describe-property-list): Add [show] button for
+ `syntax-table' property with action to pp to a separate buffer.
+ (describe-char): Replace search-forward by re-search-forward with
+ whitespace regexp after "character:" to not fail in too narrow
+ windows.
+
+ * simple.el (next-error-find-buffer): Add a rule to return
+ next-error capable buffer if one window on the selected frame
+ displays such buffer.
+
2004-05-23 Nick Roberts <nickrob@gnu.org>
* progmodes/gdb-ui.el (gdb-server-prefix): New variable.
* textmodes/bibtex.el: Use assoc-string, not assoc-ignore-case.
- * progmodes/idlw-shell.el (idlwave-shell-get-object-class):
+ * progmodes/idlw-shell.el (idlwave-shell-get-object-class):
Use assoc-string, not assoc-ignore-case.
-
+
* progmodes/ada-mode.el: Use assoc-string, not assoc-ignore-case.
* emacs-lisp/lisp.el (mark-defun, narrow-to-defun):
2004-03-21 Andre Spiegel <spiegel@gnu.org>
- * vc.el Add new optional BUFFER argument to vc-BACKEND-print-log
+ * vc.el: Add new optional BUFFER argument to vc-BACKEND-print-log
and vc-BACKEND-diff.
(vc-print-log): If the print-log implementation supports it, use
the new BUFFER argument to direct output to *vc-change-log*, not *vc*.
(or (and extra-test (funcall extra-test))
next-error-function)))
-;; Return a next-error capable buffer.
-;; If the current buffer is such, return it.
-;; If next-error-last-buffer is set to a live buffer, use that.
-;; Otherwise, look for a next-error capable buffer and signal an error
-;; if there are none.
+;; Return a next-error capable buffer according to the following rules:
+;; 1. If the current buffer is a next-error capable buffer, return it.
+;; 2. If one window on the selected frame displays such buffer, return it.
+;; 3. If next-error-last-buffer is set to a live buffer, use that.
+;; 4. Otherwise, look for a next-error capable buffer in a buffer list.
+;; 5. Signal an error if there are none.
(defun next-error-find-buffer (&optional other-buffer extra-test)
(if (and (not other-buffer)
(next-error-buffer-p (current-buffer) extra-test))
;; The current buffer is a next-error capable buffer.
(current-buffer)
- (if (and next-error-last-buffer (buffer-name next-error-last-buffer)
- (next-error-buffer-p next-error-last-buffer extra-test)
- (or (not other-buffer) (not (eq next-error-last-buffer
- (current-buffer)))))
- next-error-last-buffer
- (let ((buffers (buffer-list)))
- (while (and buffers (or (not (next-error-buffer-p (car buffers) extra-test))
- (and other-buffer
- (eq (car buffers) (current-buffer)))))
- (setq buffers (cdr buffers)))
- (if buffers
- (car buffers)
- (or (and other-buffer
- (next-error-buffer-p (current-buffer) extra-test)
- ;; The current buffer is a next-error capable buffer.
- (progn
- (if other-buffer
- (message "This is the only next-error capable buffer."))
- (current-buffer)))
- (error "No next-error capable buffer found!")))))))
+ (or
+ (let ((window-buffers
+ (delete-dups
+ (delq nil
+ (mapcar (lambda (w)
+ (and (next-error-buffer-p (window-buffer w) extra-test)
+ (window-buffer w)))
+ (window-list))))))
+ (if other-buffer
+ (setq window-buffers (delq (current-buffer) window-buffers)))
+ (if (eq (length window-buffers) 1)
+ (car window-buffers)))
+ (if (and next-error-last-buffer (buffer-name next-error-last-buffer)
+ (next-error-buffer-p next-error-last-buffer extra-test)
+ (or (not other-buffer) (not (eq next-error-last-buffer
+ (current-buffer)))))
+ next-error-last-buffer
+ (let ((buffers (buffer-list)))
+ (while (and buffers (or (not (next-error-buffer-p (car buffers) extra-test))
+ (and other-buffer
+ (eq (car buffers) (current-buffer)))))
+ (setq buffers (cdr buffers)))
+ (if buffers
+ (car buffers)
+ (or (and other-buffer
+ (next-error-buffer-p (current-buffer) extra-test)
+ ;; The current buffer is a next-error capable buffer.
+ (progn
+ (if other-buffer
+ (message "This is the only next-error capable buffer."))
+ (current-buffer)))
+ (error "No next-error capable buffer found!"))))))))
(defun next-error (arg &optional reset)
"Visit next next-error message and corresponding source code.