1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-24 04:33:24 +00:00
freebsd-ports/japanese/migemo/files/patch-migemo.el.in
MANTANI Nobutaka b774d8516d Fix breakage of isearch-backward function
Submitted by:	kuriyama
2010-01-27 16:54:59 +00:00

17 lines
707 B
EmacsLisp

--- migemo.el.in.orig 2010-01-20 11:28:54.431452726 +0900
+++ migemo.el.in 2010-01-20 11:30:09.070456941 +0900
@@ -384,7 +384,12 @@
(search-backward-regexp migemo-search-pattern bound noerror count)
(or (and (not (eq this-command 'isearch-repeat-backward))
(not (get-char-property (point) 'invisible (current-buffer)))
- (looking-at migemo-search-pattern))
+ (or (and (looking-at migemo-search-pattern)
+ (match-beginning 0))
+ (and (not (eq (point) (point-min)))
+ (progn (forward-char -1)
+ (and (looking-at migemo-search-pattern)
+ (match-beginning 0))))))
(search-backward-regexp migemo-search-pattern bound noerror count))))
;; experimental