From: Glenn Morris Date: Tue, 5 May 2015 00:20:40 +0000 (-0400) Subject: * lisp/play/gametree.el (gametree-show-children-and-entry) X-Git-Tag: emacs-25.0.90~2211 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b409dd36574ef13b87b82915828e9ffa400de04a;p=emacs.git * lisp/play/gametree.el (gametree-show-children-and-entry) (gametree-apply-layout, gametree-mouse-show-subtree) (gametree-mouse-hide-subtree): Replace obsolete outline aliases. --- 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." ;;;; outline layout (defsubst gametree-show-children-and-entry () - (show-children) - (show-entry)) + (outline-show-children) + (outline-show-entry)) (defun gametree-entry-shown-p () (save-excursion @@ -307,7 +307,7 @@ This value is simply the outline heading level of the current line." (if (not first-time) (outline-next-visible-heading 1)) (setq first-time nil) - (hide-subtree) + (outline-hide-subtree) (if (nth 0 layout) (funcall (nth 0 layout))) (if (not (and (nth 1 layout) (listp (nth 1 layout)))) @@ -393,7 +393,7 @@ depth AT-DEPTH or smaller is found." (outline-up-heading 1))) (beginning-of-line 1) (let ((parent-depth (gametree-current-branch-depth))) - (show-entry) + (outline-show-entry) (condition-case nil (outline-next-visible-heading 1) (error @@ -601,11 +601,11 @@ shogi, etc.) players, it is a slightly modified version of Outline mode. (defun gametree-mouse-show-subtree (event) (interactive "e") (mouse-set-point event) - (show-subtree)) + (outline-show-subtree)) (defun gametree-mouse-hide-subtree (event) (interactive "e") (mouse-set-point event) - (hide-subtree)) + (outline-hide-subtree)) (define-key gametree-mode-map [M-down-mouse-2 M-mouse-2] 'gametree-mouse-break-line-here) (define-key gametree-mode-map [S-down-mouse-1 S-mouse-1]