diff options
| author | Glenn Morris | 2015-05-04 20:20:40 -0400 |
|---|---|---|
| committer | Glenn Morris | 2015-05-04 20:20:40 -0400 |
| commit | b409dd36574ef13b87b82915828e9ffa400de04a (patch) | |
| tree | af420a50e7a83d36950e2d88186d9be21be32fe1 | |
| parent | b2f3c8071b79b6e0dff73d5fbc1dcaab0d8f2fbe (diff) | |
| download | emacs-b409dd36574ef13b87b82915828e9ffa400de04a.tar.gz emacs-b409dd36574ef13b87b82915828e9ffa400de04a.zip | |
* lisp/play/gametree.el (gametree-show-children-and-entry)
(gametree-apply-layout, gametree-mouse-show-subtree)
(gametree-mouse-hide-subtree): Replace obsolete outline aliases.
| -rw-r--r-- | lisp/play/gametree.el | 12 |
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] |