[xyzzy:00575] Re: info

["Seiya Suda" <EZU11330@xxxxxxxxxxxxxxxx>]

亀井さん、こんにちは。

Info-search の
-------------------------------------------------
       (while (not (eobp))
  (scan-buffer "\\(^.*\\): [0-9]+$" :regexp t)
  (goto-char (+ (match-end 1) 2))
  (setq list (cons (cons (with-input-from-selected-buffer (read))
           (buffer-substring (match-beginning 1)
        (match-end 1)))
     list))
-------------------------------------------------
のところで、エラーが起こります。なぜなのか分かりませんので
教えてください。

たとえば、"find-file" を捜すときはうまくいきます。しかし、
"find-file-hooks" を捜すとエラーになります。
デバッガーは次のように言ってます。match-end 1 が nil らしい。

>CALL STACK 19: (+ nil 2)
>CALL STACK 18: (goto-char calculating arguments...)
>CALL STACK 17: (tagbody (scan-buffer "\\(^.*\\): [0-9]+$" :regexp ...)
(goto-char (+ (match-end 0) 2)) ...)
>CALL STACK 16: (progn (if (not (not #)) (return (progn))) (tagbody
(scan-buffer "\\(^.*\\): [0-9]+$" :regexp ...) (goto-char (+ # 2)) ...) ...)
>CALL STACK 15: (tagbody #:loop (progn (if (not #) (return #)) (tagbody
(scan-buffer "\\(^.*\\): [0-9]+$" :regexp ...) (goto-char #) ...) ...) ...)
>CALL STACK 14: (block nil (tagbody #:loop (progn (if # #) (tagbody # # ...)
...

----------
須田誠也
EZU11330@xxxxxxxxxxx