;;; gametree.el --- manage game analysis trees in Emacs
-;; Copyright (C) 1997, 1999, 2001-2015 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1999, 2001-2016 Free Software Foundation, Inc.
;; Author: Ian T Zimmerman <itz@rahul.net>
;; Created: Wed Dec 10 07:41:46 PST 1997
;;;; 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
(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))))
(defun gametree-hack-file-layout ()
(save-excursion
(goto-char (point-min))
- (if (looking-at "[^\n]*-\*-[^\n]*gametree-local-layout: \\([^;\n]*\\);")
+ (if (looking-at "[^\n]*-*-[^\n]*gametree-local-layout: \\([^;\n]*\\);")
(progn
(goto-char (match-beginning 1))
(delete-region (point) (match-end 1))
(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
(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]