aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/play/gametree.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/play/gametree.el b/lisp/play/gametree.el
index ef55015a999..2c68c40d893 100644
--- a/lisp/play/gametree.el
+++ b/lisp/play/gametree.el
@@ -248,8 +248,8 @@ This value is simply the outline heading level of the current line."
248;;;; outline layout 248;;;; outline layout
249 249
250(defsubst gametree-show-children-and-entry () 250(defsubst gametree-show-children-and-entry ()
251 (show-children) 251 (outline-show-children)
252 (show-entry)) 252 (outline-show-entry))
253 253
254(defun gametree-entry-shown-p () 254(defun gametree-entry-shown-p ()
255 (save-excursion 255 (save-excursion
@@ -307,7 +307,7 @@ This value is simply the outline heading level of the current line."
307 (if (not first-time) 307 (if (not first-time)
308 (outline-next-visible-heading 1)) 308 (outline-next-visible-heading 1))
309 (setq first-time nil) 309 (setq first-time nil)
310 (hide-subtree) 310 (outline-hide-subtree)
311 (if (nth 0 layout) 311 (if (nth 0 layout)
312 (funcall (nth 0 layout))) 312 (funcall (nth 0 layout)))
313 (if (not (and (nth 1 layout) (listp (nth 1 layout)))) 313 (if (not (and (nth 1 layout) (listp (nth 1 layout))))
@@ -393,7 +393,7 @@ depth AT-DEPTH or smaller is found."
393 (outline-up-heading 1))) 393 (outline-up-heading 1)))
394 (beginning-of-line 1) 394 (beginning-of-line 1)
395 (let ((parent-depth (gametree-current-branch-depth))) 395 (let ((parent-depth (gametree-current-branch-depth)))
396 (show-entry) 396 (outline-show-entry)
397 (condition-case nil 397 (condition-case nil
398 (outline-next-visible-heading 1) 398 (outline-next-visible-heading 1)
399 (error 399 (error
@@ -601,11 +601,11 @@ shogi, etc.) players, it is a slightly modified version of Outline mode.
601(defun gametree-mouse-show-subtree (event) 601(defun gametree-mouse-show-subtree (event)
602 (interactive "e") 602 (interactive "e")
603 (mouse-set-point event) 603 (mouse-set-point event)
604 (show-subtree)) 604 (outline-show-subtree))
605(defun gametree-mouse-hide-subtree (event) 605(defun gametree-mouse-hide-subtree (event)
606 (interactive "e") 606 (interactive "e")
607 (mouse-set-point event) 607 (mouse-set-point event)
608 (hide-subtree)) 608 (outline-hide-subtree))
609(define-key gametree-mode-map [M-down-mouse-2 M-mouse-2] 609(define-key gametree-mode-map [M-down-mouse-2 M-mouse-2]
610 'gametree-mouse-break-line-here) 610 'gametree-mouse-break-line-here)
611(define-key gametree-mode-map [S-down-mouse-1 S-mouse-1] 611(define-key gametree-mode-map [S-down-mouse-1 S-mouse-1]