[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a0ae3d7: More fixes to support multi-line search in
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] master a0ae3d7: More fixes to support multi-line search in comint |
Date: |
Mon, 29 Dec 2014 00:52:43 +0000 |
branch: master
commit a0ae3d7331f6126941f90c6b80c293685004e165
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
More fixes to support multi-line search in comint
* lisp/comint.el (comint-history-isearch-message): Use field-beginning
instead of comint-line-beginning-position - that's more fixes for
http://lists.gnu.org/archive/html/emacs-devel/2014-12/msg00305.html
(comint-history-isearch-message): Fix args of isearch-message-prefix.
---
lisp/ChangeLog | 7 +++++++
lisp/comint.el | 16 +++++++++++-----
2 files changed, 18 insertions(+), 5 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6982ee9..37f3892 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,12 @@
2014-12-29 Juri Linkov <address@hidden>
+ * comint.el (comint-history-isearch-message): Use field-beginning
+ instead of comint-line-beginning-position - that's more fixes for
+ http://lists.gnu.org/archive/html/emacs-devel/2014-12/msg00305.html
+ (comint-history-isearch-message): Fix args of isearch-message-prefix.
+
+2014-12-29 Juri Linkov <address@hidden>
+
* vc/vc-dir.el (vc-dir-display-file): New command (bug#19450).
(vc-dir-mode-map): Bind it to "\C-o".
(vc-dir-menu-map): Add it to menu.
diff --git a/lisp/comint.el b/lisp/comint.el
index 3085052..4acaa30 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1532,14 +1532,20 @@ the function `isearch-message'."
;; the initial comint prompt.
(if (overlayp comint-history-isearch-message-overlay)
(move-overlay comint-history-isearch-message-overlay
- (save-excursion (forward-line 0) (point))
- (comint-line-beginning-position))
+ (save-excursion
+ (goto-char (field-beginning))
+ (forward-line 0)
+ (point))
+ (field-beginning))
(setq comint-history-isearch-message-overlay
- (make-overlay (save-excursion (forward-line 0) (point))
- (comint-line-beginning-position)))
+ (make-overlay (save-excursion
+ (goto-char (field-beginning))
+ (forward-line 0)
+ (point))
+ (field-beginning)))
(overlay-put comint-history-isearch-message-overlay 'evaporate t))
(overlay-put comint-history-isearch-message-overlay
- 'display (isearch-message-prefix c-q-hack ellipsis))
+ 'display (isearch-message-prefix ellipsis
isearch-nonincremental))
(if (and comint-input-ring-index (not ellipsis))
;; Display the current history index.
(message "History item: %d" (1+ comint-input-ring-index))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master a0ae3d7: More fixes to support multi-line search in comint,
Juri Linkov <=