[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 03/03: [gnugo] Fix bug: For GTP "help COMMAND", leave point in ri
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 03/03: [gnugo] Fix bug: For GTP "help COMMAND", leave point in right place. |
Date: |
Sat, 03 May 2014 12:46:38 +0000 |
ttn pushed a commit to branch master
in repository elpa.
commit f814f3302eba3a18c811e1c81d55870c9f47aa70
Author: Thien-Thi Nguyen <address@hidden>
Date: Sat May 3 12:04:55 2014 +0200
[gnugo] Fix bug: For GTP "help COMMAND", leave point in right place.
* packages/gnugo/gnugo.el (:gnugo-gtp-command-spec help):
When COMMANd is specified and found, use a marker to hold its
position, and after moving point there, make it point nowhere.
---
packages/gnugo/gnugo.el | 5 +++--
1 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 4e8c275..e32f18a 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -2827,8 +2827,9 @@ See `gnugo-board-mode' for a full list of commands."
(:discard (note "discards the output"))
(:message (note "displays the output in the echo
area")))))
(when (eq sel cur)
- (setq found (match-beginning 0))))))
- (cond (found (goto-char found))
+ (setq found (make-marker))
+ (set-marker found (match-beginning 0))))))
+ (cond (found (goto-char found) (set-marker found nil))
((not sel))
(t (message "(no such command: %s)" sel)))))