User: malcolmp
Date: 06/03/25 12:20:53
Modified: xemacs/lisp ChangeLog next-error.el occur.el
Log:
Rename functions that clash with the next-error family in compile.el.
Revision Changes Path
1.730 +7 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.729
retrieving revision 1.730
diff -u -p -r1.729 -r1.730
--- ChangeLog 2006/03/17 17:05:06 1.729
+++ ChangeLog 2006/03/25 11:20:50 1.730
＠＠ -1,3 +1,10 ＠＠
+2006-03-20 Malcolm Purvis <malcolmp(a)xemacs.org>
+
+ * next-error.el: Rename functions that clash with the next-error
+ family in compile.el
+ * occur.el (occur-next-error): Use new names
+ * occur.el (multi-occur): Fix compiler warnings.
+
2006-03-15 Jerry James <james(a)xemacs.org>
* newcomment.el (uncomment-region): Remove old code that breaks
1.3 +16 -13 XEmacs/xemacs/lisp/next-error.el
Index: next-error.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/next-error.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- next-error.el 2005/10/24 10:07:26 1.2
+++ next-error.el 2006/03/25 11:20:51 1.3
＠＠ -24,6 +24,9 ＠＠
;; Boston, MA 02110-1301, USA.
;;; Synched up with: FSF 22.0.50.1 (CVS)
+;;; Some functions renamed with the next-error-framework prefix to avoid
+;;; clashes with the next-error code in compile.el. One day compile.el
+;;; will use this framework.
(defgroup next-error nil
"`next-error' support framework."
＠＠ -175,8 +178,8 ＠＠ that buffer is rejected."
(error "No next-error capable buffer found")))
;;;###autoload
-(defun next-error (&optional arg reset)
- "Visit next `next-error' message and corresponding source code.
+(defun next-error-framework-next-error (&optional arg reset)
+ "Visit next `next-error-framework-next-error' message and corresponding source code.
If all the error messages parsed so far have been processed already,
the message buffer is checked for new ones.
＠＠ -188,17 +191,17 ＠＠ and start at the first error.
The RESET argument specifies that we should restart from the beginning.
-\\[next-error] normally uses the most recently started
+\\[next-error-framework-next-error] normally uses the most recently started
compilation, grep, or occur buffer. It can also operate on any
buffer with output from the \\[compile], \\[grep] commands, or,
more generally, on any buffer in Compilation mode or with
Compilation Minor mode enabled, or any buffer in which
`next-error-function' is bound to an appropriate function.
To specify use of a particular buffer for error messages, type
-\\[next-error] in that buffer when it is the only one displayed
+\\[next-error-framework-next-error] in that buffer when it is the only one displayed
in the current frame.
-Once \\[next-error] has chosen the buffer for error messages, it
+Once \\[next-error-framework-next-error] has chosen the buffer for error messages, it
runs `next-error-hook' with `run-hooks', and stays with that buffer
until you use it in some other buffer which uses Compilation mode
or Compilation Minor mode.
＠＠ -213,26 +216,26 ＠＠ See variables `compilation-parse-errors-
(funcall next-error-function (prefix-numeric-value arg) reset)
(run-hooks 'next-error-hook))))
-(defalias 'goto-next-locus 'next-error)
-(defalias 'next-match 'next-error)
+(defalias 'goto-next-locus 'next-error-framework-next-error)
+(defalias 'next-match 'next-error-framework-next-error)
-(defun previous-error (&optional n)
- "Visit previous `next-error' message and corresponding source code.
+(defun next-error-framework-previous-error (&optional n)
+ "Visit previous `next-error-framework-next-error' message and corresponding source code.
Prefix arg N says how many error messages to move backwards (or
forwards, if negative).
This operates on the output from the \\[compile] and \\[grep] commands."
(interactive "p")
- (next-error (- (or n 1))))
+ (next-error-framework-next-error (- (or n 1))))
-(defun first-error (&optional n)
+(defun next-error-framework-first-error (&optional n)
"Restart at the first error.
Visit corresponding source code.
With prefix arg N, visit the source code of the Nth error.
This operates on the output from the \\[compile] command, for instance."
(interactive "p")
- (next-error n t))
+ (next-error-framework-next-error n t))
(defun next-error-no-select (&optional n)
"Move point to the next error in the `next-error' buffer and highlight match.
＠＠ -242,7 +245,7 ＠＠ Finds and highlights the source line lik
select the source buffer."
(interactive "p")
(let ((next-error-highlight next-error-highlight-no-select))
- (next-error n))
+ (next-error-framework-next-error n))
(pop-to-buffer next-error-last-buffer))
(defun previous-error-no-select (&optional n)
1.4 +5 -4 XEmacs/xemacs/lisp/occur.el
Index: occur.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/occur.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- occur.el 2005/11/29 12:33:47 1.3
+++ occur.el 2006/03/25 11:20:51 1.4
＠＠ -177,7 +177,7 ＠＠ This function should be bound to a mouse
(defun occur-next-error (&optional argp reset)
"Move to the Nth (default 1) next match in an Occur mode buffer.
-Compatibility function for \\[next-error] invocations."
+Compatibility function for \\[next-error-framework-next-error] invocations."
(interactive "p")
;; we need to run occur-find-match from within the Occur buffer
(with-current-buffer
＠＠ -325,13 +325,13 ＠＠ the matching is case-sensitive."
"Show all lines in buffers BUFS containing a match for REGEXP.
This function acts on multiple buffers; otherwise, it is exactly like
`occur'."
- (defvar ido-ignore-item-temp-list)
(interactive
(cons
(let* ((bufs (list (read-buffer "First buffer to search: "
(current-buffer) t)))
(buf nil)
- (ido-ignore-item-temp-list bufs))
+; (ido-ignore-item-temp-list bufs)
+ )
(while (not (string-equal
(setq buf (read-buffer
(if (and-boundp 'read-buffer-function
＠＠ -341,7 +341,8 ＠＠ This function acts on multiple buffers;
nil t))
""))
(add-to-list 'bufs buf)
- (setq ido-ignore-item-temp-list bufs))
+; (setq ido-ignore-item-temp-list bufs)
+ )
(nreverse (mapcar #'get-buffer bufs)))
(occur-read-primary-args)))
(occur-1 regexp nlines bufs))
