- (setq entry-boundary (save-excursion
- (and (re-search-forward "\n[A-Z]" nil t)
- (point)))
- entry-position (save-excursion
- (and (re-search-forward
- (concat
- (regexp-quote (concat "* " entry))
- ;; don't accept `foo.bar' when
- ;; looking for `foo':
- "[ \n\t,]")
- entry-boundary
- t)
- (1- (match-end 0))))))
+ (let ((entry-boundary (save-excursion
+ (and (re-search-forward "\n[A-Z]" nil t)
+ (point)))))
+ (setq entry-position (save-excursion
+ (and (re-search-forward
+ (concat
+ (regexp-quote (concat "* " entry))
+ ;; don't accept `foo.bar' when
+ ;; looking for `foo':
+ "[ \n\t,:]")
+ entry-boundary
+ t)
+ (1- (match-end 0)))))))