[xyzzy:05400] Re: errors.l

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

冨永さん、こんにちは。

	2000年10月5日(木)[15:06:22]の、
	[xyzzy:05399] errors.l
	への返事です。

こんな。

(in-package "editor")

(defun find-errors-get-buffer (name later)
  (setq name (string-trim " \t" name))
  (let ((file (substitute-string name "[/\\]+" "/"))
	buffer)
    (cond ((equal (car *last-error*) file)
	   (cdr *last-error*))
	  ((and later (null *parse-errors-at-once*))
	   t)
	  ((setq buffer (if (string-match "^<.+>$" name)
			    (find-buffer (subseq name 1 (- (length name) 1)))
			  (and (file-exist-p file)
			       (or (get-file-buffer file)
				   (save-excursion
				     (find-file file nil t)
				     (selected-buffer))))))
	   (setq *last-error* (cons file buffer))
	   buffer)
	  ((setq buffer (find-buffer name))
	   (setq *last-error* (cons file buffer))
	   buffer)
	  (t nil))))

-- 
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx