mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-29 11:02:01 +00:00
Code Issues Releases Activity

calc-trail.el (calc-trail-isearch-forward)

Browse Source 
(calc-trail-isearch-backward): Ensure that the new window
point is set correctly.
This commit is contained in:
Jay Belanger 2010-05-18 17:49:56 -05:00
parent 278847cd92
commit 134c2f29ce
2 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2010-05-18 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-trail.el (calc-trail-isearch-forward)
(calc-trail-isearch-backward): Ensure that the new window
point is set correctly.
2010-05-18 Stefan Monnier <monnier@iro.umontreal.ca>
* subr.el (read-quoted-char): Resolve modifiers after key

28
lisp/calc/calc-trail.el
View File

@ -108,20 +108,28 @@
(defun calc-trail-isearch-forward ()
(interactive)
(calc-with-trail-buffer
(save-window-excursion
(select-window (get-buffer-window (current-buffer)))
(let ((search-exit-char ?\r))
(isearch-forward)))
(calc-trail-here)))
(let ((win (get-buffer-window (current-buffer)))
pos)
(save-window-excursion
(select-window win)
(isearch-forward)
(setq pos (point)))
(goto-char pos)
(set-window-point win pos)
(calc-trail-here))))
(defun calc-trail-isearch-backward ()
(interactive)
(calc-with-trail-buffer
(save-window-excursion
(select-window (get-buffer-window (current-buffer)))
(let ((search-exit-char ?\r))
(isearch-backward)))
(calc-trail-here)))
(let ((win (get-buffer-window (current-buffer)))
pos)
(save-window-excursion
(select-window win)
(isearch-backward)
(setq pos (point)))
(goto-char pos)
(set-window-point win pos)
(calc-trail-here))))
(defun calc-trail-yank (arg)
(interactive "P")