[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Problem with search-forward in *Help* buffers
From: |
Eduardo Ochs |
Subject: |
Problem with search-forward in *Help* buffers |
Date: |
Sat, 26 Nov 2022 01:08:33 -0300 |
Hi list,
consider these two defuns, and the four tests after them:
;; This is a simplified version of:
;; (find-efunction 'ee-goto-position)
;; http://angg.twu.net/eev-current/eev-blinks.el.html#ee-goto-position
(defun ee-goto-position-mini (&optional str &rest strs)
(when str
(goto-char (point-min))
(search-forward str)
(dolist (s strs)
(search-forward s))))
;; This is a simplified version of:
;; (find-efunction 'find-dbsw-call)
;; http://angg.twu.net/eev-current/eev-blinks.el.html#find-dbsw
(defun find-dbsw-call-mini (sexp &rest pos-spec-list)
(let ((display-buffer-overriding-action '(display-buffer-same-window)))
(eval sexp))
(apply 'ee-goto-position-mini pos-spec-list))
(find-dbsw-call-mini '(customize-group 'editing) "Parent")
(find-dbsw-call-mini '(describe-function 'next-line) "line-move-visual")
(find-dbsw-call-mini '(list-input-methods) "TeX")
(find-dbsw-call-mini '(describe-input-method 'TeX) "\\bullet")
The first call to `find-dbsw-call-mini' works as I expected: it runs
(customize-group 'editing)
and searches for the first occurrence of the string "Parent" in it.
But in the other ones the search doesn't work - after the
(find-dbsw-call-mini ...) is run the point is elsewhere. What is
happening here? And do you have any suggestions of how to fix that?
Thanks in advance!
Eduardo Ochs
http://angg.twu.net/#eev
- Problem with search-forward in *Help* buffers,
Eduardo Ochs <=