branch: externals/hyperbole
commit 81cebfec471ca72c8d0c9cbabc9c9bdd986c7117
Author: Bob Weiner <r...@gnu.org>
Commit: Bob Weiner <r...@gnu.org>
Fix a few byte-compiler free variable warnings
---
ChangeLog | 18 ++++
hactypes.el | 14 ---
hib-social.el | 4 +-
hibtypes.el | 43 +-------
hmouse-drv.el | 2 +-
hui-mouse.el | 76 +++++++------
hycontrol.el | 14 +--
hywconfig.el | 3 +-
kotl/kotl-autoloads.el | 284 -------------------------------------------------
man/hyperbole.html | 29 +----
man/hyperbole.info | Bin 554841 -> 553862 bytes
man/hyperbole.pdf | Bin 1309421 -> 1308520 bytes
man/hyperbole.texi | 18 +---
13 files changed, 74 insertions(+), 431 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 7a35937..8484366 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,21 @@
+2021-05-13 Bob Weiner <r...@gnu.org>
+
+* hycontrol.el (hycontrol-frames-mode): Add :group.
+ (hycontrol-make-windows-grid):
+ (hycontrol--buffer-list): Add this var and use instead of
+ free var 'buffer list'.
+
+* hui-mouse.el (smart-custom, smart-custom-assist): Add missing close paren
+ in last-line-p clause.
+
+* hmouse-drv.el (hmouse-choose-windows): Fix unneeded arg to message.
+
+* man/hyperbole.texi (Implicit Button Types): Remove function-in-buffer.
+ hibtypes.el (function-in-buffer):
+ hui-mouse.el (hkey-alist): Remove XEmacs fume function finding; use imenu.
+
+* hibtypes.el (hlink): Add missing let declaration of partial-lbl.
+
2021-05-13 Mats Lidell <ma...@gnu.org>
* kotl/kotl-mode.el (kotl-mode): Set hook to be local to buffer.
diff --git a/hactypes.el b/hactypes.el
index 071b782..3536cd2 100644
--- a/hactypes.el
+++ b/hactypes.el
@@ -198,20 +198,6 @@ kill the last output to the shell buffer before executing
SHELL-CMD."
(comint-send-input)))
(message msg)))
-(defact function-in-buffer (name pos)
- "Display the definition of function NAME found at POS in the current buffer."
- (save-excursion
- (goto-char pos)
- (unless (looking-at (regexp-quote name))
- (let ((fume-scanning-message nil))
- (fume-rescan-buffer)
- (setq pos (cdr-safe (assoc name fume-funclist))))))
- (when pos
- (hpath:display-buffer (current-buffer))
- (goto-char pos)
- ;; Move to beginning of the line for compatibility with find-tag.
- (beginning-of-line)))
-
(defact hyp-config (&optional out-buf)
"Insert Hyperbole configuration information at the end of the current buffer
or within optional OUT-BUF."
(hypb:configuration out-buf))
diff --git a/hib-social.el b/hib-social.el
index e46e42b..03cfd02 100644
--- a/hib-social.el
+++ b/hib-social.el
@@ -179,7 +179,7 @@
;;; ************************************************************************
(defcustom hibtypes-social-default-service "twitter"
- "Lowercase string matching the name of the default social media service to
use when none is specified."
+ "Lowercase string matching the social media service to use as a default."
:type '(radio (const "facebook")
(const "git")
(const "github")
@@ -189,7 +189,7 @@
:group 'hyperbole-button)
(defcustom hibtypes-social-display-function #'browse-url
- "Function of one argument, a url, to display when a social media reference
is activated."
+ "Function of one arg, a url, to display upon activation of a social media
reference."
:type 'function
:group 'hyperbole-button)
diff --git a/hibtypes.el b/hibtypes.el
index abda502..7b3e6c8 100644
--- a/hibtypes.el
+++ b/hibtypes.el
@@ -293,47 +293,6 @@ handle any links they recognize first."
(hact 'org-open-at-point-global)))))
;;; ========================================================================
-;;; Use the XEmacs func-menu library to jump to a function referred to
-;;; in the same file in which it is defined. Function references
-;;; across files are handled separately by clauses within the
-;;; `hkey-alist' variable.
-;;; ========================================================================
-
-(defib function-in-buffer ()
- "Display the in-buffer definition of a function name that point is within or
after, else nil.
-Trigger only when the \"func-menu.el\" library has been loaded and the
-current major mode is one handled by func-menu."
- (when (and (boundp 'fume-function-name-regexp-alist)
- (assq major-mode fume-function-name-regexp-alist)
- (not (derived-mode-p 'dired-mode))
- ;; Not sure if this is defined in early versions of Emacs.
- (fboundp 'skip-syntax-backward)
- ;; Prevent triggering when on method, class or function definition
- ;; lines under InfoDock where outlining in programming modes is
used.
- (if (and (featurep 'infodock)
- (boundp 'id-outline-in-programming-modes)
- id-outline-in-programming-modes
- (boundp 'outline-regexp) (stringp outline-regexp))
- (save-excursion (beginning-of-line)
- (not (looking-at outline-regexp)))
- t))
- (save-excursion
- (skip-syntax-backward "w_")
- (when (looking-at "\\(\\sw\\|\\s_\\)+")
- (let ((function-name (buffer-substring-no-properties (point)
(match-end 0)))
- (start (point))
- (end (match-end 0))
- function-pos)
- (unless fume-funclist
- (fume-set-defaults)
- (let ((fume-scanning-message nil))
- (fume-rescan-buffer)))
- (setq function-pos (cdr-safe (assoc function-name fume-funclist)))
- (when function-pos
- (ibut:label-set function-name start end)
- (hact 'function-in-buffer function-name function-pos)))))))
-
-;;; ========================================================================
;;; Handles internal references within an annotated bibliography, delimiters=[]
;;; ========================================================================
@@ -728,7 +687,7 @@ Requires the Emacs builtin Tramp library for ftp file
retrievals."
(label-and-file (nth 0 label-start-end))
(start-pos (nth 1 label-start-end))
(end-pos (nth 2 label-start-end))
- lbl but-key lbl-key key-file)
+ lbl but-key lbl-key key-file partial-lbl)
(when label-and-file
(setq label-and-file (parse-label-and-file label-and-file)
partial-lbl (nth 0 label-and-file)
diff --git a/hmouse-drv.el b/hmouse-drv.el
index a1e8c0a..b74182c 100644
--- a/hmouse-drv.el
+++ b/hmouse-drv.el
@@ -730,7 +730,7 @@ hkey-swap and hkey-throw."
until (and (mouse-event-p end-event)
(not (string-match "\\`down-" (symbol-name (car
end-event)))))
finally return (posn-window (event-start end-event))))
- (message "Done" func)
+ (message "Done")
(with-selected-window start-window
(funcall func end-window))))
diff --git a/hui-mouse.el b/hui-mouse.el
index 936f9f6..a2d7439 100644
--- a/hui-mouse.el
+++ b/hui-mouse.el
@@ -354,10 +354,6 @@ Its default value is #'smart-scroll-down. To disable it,
set it to
. ((smart-imenu-display-item-where (car hkey-value) (cdr hkey-value)) .
(imenu-choose-buffer-index)))
;;
- ;; Function menu listing mode in XEmacs
- ((eq major-mode 'fume-list-mode) .
- ((fume-list-mouse-select current-mouse-event) .
(fume-prompt-function-goto)))
- ;;
((and (eq major-mode 'c-mode)
buffer-file-name (smart-c-at-tag-p)) .
((smart-c) . (smart-c nil 'next-tag)))
@@ -694,8 +690,8 @@ If key is pressed:
(3) if a mouse event on a widget, activate the widget or display a menu;
(4) anywhere else, execute the command bound to {RETURN}."
(interactive)
- (cond ((last-line-p) (Custom-buffer-done)
- ((eolp) (smart-scroll-up)))
+ (cond ((last-line-p) (Custom-buffer-done))
+ ((eolp) (smart-scroll-up))
((mouse-event-p last-command-event)
(widget-button-click action-key-release-args))
;; Handle widgets in Custom-mode
@@ -715,8 +711,8 @@ If key is pressed:
(3) if a mouse event on a widget, activate the widget or display a menu;
(4) anywhere else, execute the command bound to {RETURN}."
(interactive)
- (cond ((last-line-p) (Custom-buffer-done)
- ((eolp) (smart-scroll-down)))
+ (cond ((last-line-p) (Custom-buffer-done))
+ ((eolp) (smart-scroll-down))
((mouse-event-p last-command-event)
(widget-button-click action-key-release-args))
;; Handle widgets in Custom-mode
@@ -1654,13 +1650,13 @@ will simply invoke `org-meta-return'.
Org links may be used outside of Org mode buffers. Such links are
handled by the separate implicit button type, `org-link-outside-org-mode'."
(when (funcall hsys-org-mode-function)
- (cond ((not hsys-org-enable-smart-keys)
- (when (hsys-org-meta-return-shared-p)
- (hact 'org-meta-return current-prefix-arg))
- ;; Ignore any further Smart Key non-Org contexts
- t)
- ((eq hsys-org-enable-smart-keys t)
- (let (start-end)
+ (let (start-end)
+ (cond ((not hsys-org-enable-smart-keys)
+ (when (hsys-org-meta-return-shared-p)
+ (hact 'org-meta-return current-prefix-arg))
+ ;; Ignore any further Smart Key non-Org contexts
+ t)
+ ((eq hsys-org-enable-smart-keys t)
(cond ((hsys-org-agenda-item-at-p)
(if (not assist-flag)
(progn (hsys-org-set-ibut-label (cons
(line-beginning-position) (line-end-position)))
@@ -1698,31 +1694,31 @@ handled by the separate implicit button type,
`org-link-outside-org-mode'."
t)
(t
;; Continue with any further Smart Key non-Org contexts
- nil))))
- ((eq hsys-org-enable-smart-keys 'buttons)
- (cond ((hsys-org-radio-target-def-at-p)
- (hact 'org-radio-target)
- t)
- ((setq start-end (hsys-org-link-at-p))
- (if (not assist-flag)
- (progn (hsys-org-set-ibut-label start-end)
- (hact 'org-link))
- (hact 'hkey-help))
- t)
- ((hbut:at-p)
- ;; Activate/Assist with any Hyperbole button at point
- (if (not assist-flag)
- (hact 'hbut:act)
- (hact 'hkey-help)))
- (t
- (when (hsys-org-meta-return-shared-p)
- (hact 'org-meta-return current-prefix-arg))
- ;; Ignore any further Smart Key non-Org contexts
- t)))
- (t
- ;; hsys-org-enable-smart-keys is set to t, so try other Smart
- ;; contexts
- nil))))
+ nil)))
+ ((eq hsys-org-enable-smart-keys 'buttons)
+ (cond ((hsys-org-radio-target-def-at-p)
+ (hact 'org-radio-target)
+ t)
+ ((setq start-end (hsys-org-link-at-p))
+ (if (not assist-flag)
+ (progn (hsys-org-set-ibut-label start-end)
+ (hact 'org-link))
+ (hact 'hkey-help))
+ t)
+ ((hbut:at-p)
+ ;; Activate/Assist with any Hyperbole button at point
+ (if (not assist-flag)
+ (hact 'hbut:act)
+ (hact 'hkey-help)))
+ (t
+ (when (hsys-org-meta-return-shared-p)
+ (hact 'org-meta-return current-prefix-arg))
+ ;; Ignore any further Smart Key non-Org contexts
+ t)))
+ (t
+ ;; hsys-org-enable-smart-keys is set to t, so try other Smart
+ ;; contexts
+ nil)))))
;;; ************************************************************************
;;; smart-outline functions
diff --git a/hycontrol.el b/hycontrol.el
index b1d9f18..074461a 100644
--- a/hycontrol.el
+++ b/hycontrol.el
@@ -482,6 +482,7 @@ associated key: quit {q}, abort {C-g}, or toggle {t}.")
(defvar hycontrol--frame-widths-pointer nil)
(defvar hycontrol--frame-heights-pointer nil)
+(defvar hycontrol--buffer-list nil)
(defvar hycontrol--buffer-list-pointer nil)
(defvar hycontrol--initial-which-key-inhibit nil
@@ -779,7 +780,7 @@ multiple of the default frame font width."
(defun hycontrol-window-display-buffer (window)
"Given a WINDOW, choose the next appropriate buffer to display therein using
`hycontrol-display-buffer-predicate-list'.
-Also uses the value of free variable `buffer-list' as the list of
+Also uses the value of`hycontrol--buffer-list' as the list of
buffers to distribute among the windows."
(let ((buf (car hycontrol--buffer-list-pointer)))
(setq hycontrol--buffer-list-pointer (cdr hycontrol--buffer-list-pointer))
@@ -787,7 +788,7 @@ buffers to distribute among the windows."
;; Now on each new pass through buffer-list, the buffer predicate tests
will
;; be inverted to expand the list of allowed buffers because the
;; 1st pass did not produce a buffer for this window.
- (setq hycontrol--buffer-list-pointer buffer-list
+ (setq hycontrol--buffer-list-pointer hycontrol--buffer-list
buf (car hycontrol--buffer-list-pointer)
hycontrol--buffer-list-pointer (cdr hycontrol--buffer-list-pointer))
(unless (eq hycontrol--invert-display-buffer-predicates 'ignore)
@@ -882,7 +883,8 @@ instead of quitting HyControl."
;;;###autoload
(define-global-minor-mode hycontrol-frames-mode hycontrol-local-frames-mode
- (lambda () (hycontrol-local-frames-mode 1)))
+ (lambda () (hycontrol-local-frames-mode 1))
+ :group 'hyperbole-screen)
;; These hooks run by the generated `hycontrol-frames-mode' function
;; do the global work of turning on and off the mode.
@@ -1547,9 +1549,9 @@ See documentation of `hycontrol-windows-grid' for further
details."
;; the predicate tests. Always ignore buffers that
;; start with a space. With each succeeding pass, the
;; predicate list is inverted again.
- (let ((buffer-list (hycontrol-windows-grid-buffer-list)))
- (setq hycontrol--buffer-list-pointer buffer-list)
- (walk-windows #'hycontrol-window-display-buffer 'no-minibuf))
+ (setq hycontrol--buffer-list (hycontrol-windows-grid-buffer-list)
+ hycontrol--buffer-list-pointer hycontrol--buffer-list)
+ (walk-windows #'hycontrol-window-display-buffer 'no-minibuf)
;; Prevent user from mistakenly using the typically
;; large argument that invoked this function; reset it
diff --git a/hywconfig.el b/hywconfig.el
index bd5e09d..9095181 100644
--- a/hywconfig.el
+++ b/hywconfig.el
@@ -55,11 +55,12 @@
;;; Public variables
;;; ************************************************************************
+(define-obsolete-variable-alias 'wconfig-ring-max 'hywconfig-ring-max "06.00")
(defcustom hywconfig-ring-max 10
"*Maximum length of Hyperbole window configuration ring before oldest
elements are deleted."
:type '(integer :match (lambda (_widget value) (and (integerp value) (>
value 0))))
:group 'hyperbole-screen)
-(define-obsolete-variable-alias 'wconfig-ring-max 'hywconfig-ring-max "06.00")
+
;;; ************************************************************************
;;; Public functions
diff --git a/kotl/kotl-autoloads.el b/kotl/kotl-autoloads.el
deleted file mode 100644
index 4f1dfc1..0000000
--- a/kotl/kotl-autoloads.el
+++ /dev/null
@@ -1,284 +0,0 @@
-;;; kotl-autoloads.el --- automatically extracted autoloads -*-
lexical-binding: t -*-
-;;
-;;; Code:
-
-
-;;;### (autoloads nil "kcell" "kcell.el" (0 0 0 0))
-;;; Generated autoloads from kcell.el
-
-(register-definition-prefixes "kcell" '("kcell"))
-
-;;;***
-
-;;;### (autoloads nil "kexport" "kexport.el" (0 0 0 0))
-;;; Generated autoloads from kexport.el
-
-(autoload 'kexport:html "kexport" "\
-Export a koutline buffer or file in EXPORT-FROM to html format in OUTPUT-TO.
-By default, this retains newlines within cells as they are. With optional
prefix arg, SOFT-NEWLINES-FLAG,
-hard newlines are not used. Also converts Urls and Klinks into Html
hyperlinks.
-STILL TODO:
- Make delimited pathnames into file links (but not if within klinks).
- Copy attributes stored in cell 0 and attributes from each cell.
-
-\(fn EXPORT-FROM OUTPUT-TO &optional SOFT-NEWLINES-FLAG)" t nil)
-
-(register-definition-prefixes "kexport" '("kexport:"))
-
-;;;***
-
-;;;### (autoloads nil "kfile" "kfile.el" (0 0 0 0))
-;;; Generated autoloads from kfile.el
-
-(autoload 'kfile:find "kfile" "\
-Find a file FILE-NAME containing a kotl or create one if none exists.
-Return the new kview.
-
-\(fn FILE-NAME)" t nil)
-
-(autoload 'kfile:is-p "kfile" "\
-Iff current buffer contains an unformatted or formatted koutline, return file
format version string, else nil." nil nil)
-
-(autoload 'kfile:view "kfile" "\
-View an existing kotl version-2 file FILE-NAME in a read-only mode.
-
-\(fn FILE-NAME)" t nil)
-
-(register-definition-prefixes "kfile" '("kfile:"))
-
-;;;***
-
-;;;### (autoloads nil "kfill" "kfill.el" (0 0 0 0))
-;;; Generated autoloads from kfill.el
-
-(register-definition-prefixes "kfill" '("kfill:" "prior-fill-prefix"
"set-fill-prefix"))
-
-;;;***
-
-;;;### (autoloads nil "kimport" "kimport.el" (0 0 0 0))
-;;; Generated autoloads from kimport.el
-
-(defvar kimport:mode-alist '((t . kimport:text) (outline-mode .
kimport:star-outline)) "\
-Alist of (major-mode . importation-function) elements.
-This determines the type of importation done on a file when `kimport:file' is
-called if the major mode of the import file matches the car of an element in
-this list. If there is no match, then `kimport:suffix-alist' is checked. If
-that yields no match, the element in this list whose car is 't is used. It
-normally does an import of a koutline or text file.
-
-Each importation-function must take two arguments, a buffer/file to import
-and a buffer/file into which to insert the imported elements and a third
-optional argument, CHILDREN-P, which when non-nil means insert imported cells
-as the initial set of children of the current cell, if any.
-
- `outline-mode' - imported as an Emacs outline whose entries begin with
- asterisks;
- .kot
- .kotl - imported as a structured koutline
-
- all others - imported as text.")
-
-(defvar kimport:suffix-alist '(("\\.otl$" . kimport:star-outline) ("\\.aug$" .
kimport:aug-post-outline)) "\
-Alist of (buffer-name-suffix-regexp . importation-function) elements.
-This determines the type of importation done on a file when `kimport:file' is
-called. Each importation-function must take two arguments, a buffer/file to
-import and a buffer/file into which to insert the imported elements and a
-third optional argument, CHILDREN-P, which when non-nil means insert imported
-cells as the initial set of children of the current cell, if any.
-
- .otl - imported as an Emacs outline whose entries begin with asterisks;
- .kot
- .kotl - imported as a structured koutline
- .aug - imported as an Augment post-numbered outline.")
-
-(autoload 'kimport:file "kimport" "\
-Import a buffer or file IMPORT-FROM into the koutline in buffer or file
OUTPUT-TO.
-
-Any suffix in IMPORT-FROM's buffer name is used to determine the type of
-importation. All others are imported as text, one paragraph per cell.
-
-See the documentation for the variable, `kimport:suffix-alist' for
-information on specific importation formats.
-
-\(fn IMPORT-FROM OUTPUT-TO &optional CHILDREN-P)" t nil)
-
-(autoload 'kimport:aug-post-outline "kimport" "\
-Insert Augment outline statements from IMPORT-FROM into koutline OUTPUT-TO.
-Displays and leaves point in OUTPUT-TO. See documentation for
-`kimport:initialize' for valid values of IMPORT-FROM and OUTPUT-TO and for
-an explanation of where imported cells are placed.
-
-If OUTPUT-TO is a new koutline, the first statement inserted will be the
-first cell. Otherwise, it will be the successor of the current cell.
-
-Each statement to be imported is delimited by an Augment relative id at the
-end of the statement. \"1\" = level 1, \"1a\" = level 2 in outline and so
-on.
-
-\(fn IMPORT-FROM OUTPUT-TO &optional CHILDREN-P)" t nil)
-
-(autoload 'kimport:star-outline "kimport" "\
-Insert star outline nodes from IMPORT-FROM into koutline OUTPUT-TO.
-Displays and leaves point in OUTPUT-TO. See documentation for
-`kimport:initialize' for valid values of IMPORT-FROM and OUTPUT-TO and for
-an explanation of where imported cells are placed.
-
-\"* \" = level 1, \"** \" = level 2 in outline and so on.
-
-\(fn IMPORT-FROM OUTPUT-TO &optional CHILDREN-P)" t nil)
-
-(autoload 'kimport:text "kimport" "\
-Insert text paragraphs from IMPORT-FROM into koutline OUTPUT-TO.
-Displays and leaves point in OUTPUT-TO. See documentation for
-`kimport:initialize' for valid values of IMPORT-FROM and OUTPUT-TO and for
-an explanation of where imported cells are placed.
-
-Text paragraphs are imported as a sequence of same level cells. Koutlines
-are imported with their structure intact.
-
-The variable, `paragraph-start,' is used to determine paragraphs.
-
-\(fn IMPORT-FROM OUTPUT-TO &optional CHILDREN-P)" t nil)
-
-(autoload 'kimport:copy-and-set-buffer "kimport" "\
-Copy and untabify SOURCE, set copy buffer as current buffer for this command
and return the copy buffer.
-SOURCE may be a buffer name, a buffer or a file name.
-If SOURCE buffer name begins with a space, it is not copied under the
-assumption that it already has been. If SOURCE is a koutline, it is not
-copied since there is no need to copy it to import it.
-
-\(fn SOURCE)" nil nil)
-
-(register-definition-prefixes "kimport" '("kimport:"))
-
-;;;***
-
-;;;### (autoloads nil "klabel" "klabel.el" (0 0 0 0))
-;;; Generated autoloads from klabel.el
-
-(register-definition-prefixes "klabel" '("klabel" "kotl-label:"))
-
-;;;***
-
-;;;### (autoloads nil "klink" "klink.el" (0 0 0 0))
-;;; Generated autoloads from klink.el
-
-(autoload 'klink:create "klink" "\
-Insert at point an implicit link to REFERENCE.
-REFERENCE should be a cell-ref or a string containing \"filename, cell-ref\".
-See documentation for `kcell:ref-to-id' for valid cell-ref formats.
-
-\(fn REFERENCE)" t nil)
-
-(register-definition-prefixes "klink" '("klink" "link-to-kotl"))
-
-;;;***
-
-;;;### (autoloads nil "kmenu" "kmenu.el" (0 0 0 0))
-;;; Generated autoloads from kmenu.el
-
-(register-definition-prefixes "kmenu" '("id-" "kotl-"))
-
-;;;***
-
-;;;### (autoloads nil "knode" "knode.el" (0 0 0 0))
-;;; Generated autoloads from knode.el
-
-(register-definition-prefixes "knode" '("knode:"))
-
-;;;***
-
-;;;### (autoloads nil "kotl-mode" "kotl-mode.el" (0 0 0 0))
-;;; Generated autoloads from kotl-mode.el
-
-(autoload 'kotl-mode "kotl-mode" "\
-The major mode used to edit and view koutlines.
-It provides the following keys:
-\\{kotl-mode-map}" t nil)
-
-(autoload 'kotl-mode:example "kotl-mode" "\
-Display the Koutliner example file for demonstration use by a user." t nil)
-
-(autoload 'kotl-mode:overview "kotl-mode" "\
-Show the first line of each cell.
-With optional prefix ARG, toggle display of blank lines between cells.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'kotl-mode:show-all "kotl-mode" "\
-Show (expand) all cells in the current view.
-With optional prefix ARG, toggle display of blank lines between cells.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'kotl-mode:top-cells "kotl-mode" "\
-Collapse all level 1 cells in view and hide any deeper sublevels.
-With optional prefix ARG, toggle display of blank lines between cells.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'kotl-mode:hide-tree "kotl-mode" "\
-Collapse tree rooted at optional CELL-REF (defaults to cell at point).
-With optional SHOW-FLAG, expand the tree instead.
-
-\(fn &optional CELL-REF SHOW-FLAG)" t nil)
-
-(autoload 'kotl-mode:show-tree "kotl-mode" "\
-Display fully expanded tree rooted at CELL-REF.
-
-\(fn &optional CELL-REF)" t nil)
-
-(autoload 'kotl-mode:is-p "kotl-mode" "\
-Signal an error if current buffer is not a Hyperbole outline, else return t."
nil nil)
-
-(register-definition-prefixes "kotl-mode" '("delete-selection-pre-hook"
"kotl-mode" "yank-"))
-
-;;;***
-
-;;;### (autoloads nil "kotl-orgtbl" "kotl-orgtbl.el" (0 0 0 0))
-;;; Generated autoloads from kotl-orgtbl.el
-
-(register-definition-prefixes "kotl-orgtbl" '("kotl-mode:transpose-lines-"
"orgtbl-"))
-
-;;;***
-
-;;;### (autoloads nil "kprop-em" "kprop-em.el" (0 0 0 0))
-;;; Generated autoloads from kprop-em.el
-
-(register-definition-prefixes "kprop-em" '("kproperty:"))
-
-;;;***
-
-;;;### (autoloads nil "kprop-xe" "kprop-xe.el" (0 0 0 0))
-;;; Generated autoloads from kprop-xe.el
-
-(register-definition-prefixes "kprop-xe" '("kproperty:"))
-
-;;;***
-
-;;;### (autoloads nil "kview" "kview.el" (0 0 0 0))
-;;; Generated autoloads from kview.el
-
-(register-definition-prefixes "kview" '("kcell-view:" "kview:"))
-
-;;;***
-
-;;;### (autoloads nil "kvspec" "kvspec.el" (0 0 0 0))
-;;; Generated autoloads from kvspec.el
-
-(register-definition-prefixes "kvspec" '("kvspec:"))
-
-;;;***
-
-;;;### (autoloads nil nil ("kproperty.el") (0 0 0 0))
-
-;;;***
-
-(provide 'kotl-autoloads)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; kotl-autoloads.el ends here
diff --git a/man/hyperbole.html b/man/hyperbole.html
index 413c0ab..9193d0a 100644
--- a/man/hyperbole.html
+++ b/man/hyperbole.html
@@ -358,7 +358,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.</P>
<PRE>
Edition 8.0.0pre
-Printed May 9, 2021.
+Printed May 13, 2021.
Published by the Free Software Foundation, Inc.
Author: Bob Weiner
@@ -3122,17 +3122,6 @@ begin with a word constituent character, and must not be
in buffers
whose names begin with a ‘ ’ or ‘*’ character.
</p>
-<span id="index-ibtypes-function_002din_002dbuffer"></span>
-<span id="index-file_002c-func_002dmenu_002eel"></span>
-<span id="index-function-menu"></span>
-<span id="index-func_002dmenu"></span>
-</dd>
-<dt><code>function-in-buffer</code></dt>
-<dd><p>Return the function name defined within this buffer that point is
-within or after, else <code>nil</code>. This triggers only when the
-func-menu library has been loaded and the current major mode is one
-handled by func-menu.
-</p>
<span id="index-link_002c-pathname-line-and-column"></span>
<span id="index-line-and-column"></span>
<span id="index-pathname_002c-line-and-column"></span>
@@ -3409,11 +3398,6 @@ output to the shell buffer before executing SHELL-CMD.
<dt><code>exec-window-cmd</code></dt>
<dd><p>Asynchronously execute an external window-based SHELL-CMD string.
</p>
-<span id="index-actypes-function_002din_002dbuffer"></span>
-</dd>
-<dt><code>function-in-buffer</code></dt>
-<dd><p>Display the definition of function NAME found at POS in the current
buffer.
-</p>
<span id="index-actypes-hyp_002dconfig"></span>
</dd>
<dt><code>hyp-config</code></dt>
@@ -5391,7 +5375,7 @@ You can, however, copy an outline tree to a non-outline
buffer with:
<dd><p>Copy a <tree> to a non-koutline buffer.
<span id="index-C_002dc-C_002d_0040"></span>
</p></dd>
-<dt><kbd>{C-c C-@ }</kbd></dt>
+<dt><kbd>{C-c C-@}</kbd></dt>
<dd><p>Copy a <tree> to an outgoing mail message.
</p></dd>
</dl>
@@ -8861,9 +8845,9 @@ Next: <a href="#Default-Hyperbole-Bindings" accesskey="n"
rel="next">Default Hyp
<span id="index-minibuffer-menu-bindings"></span>
<span id="index-hyperbole_002dset_002dkey"></span>
<p>Use <kbd>{M-x hyperbole-set-key <span class="key">RET</span>}</kbd> to bind
any global key to
-any Hyperbole minibuffer item. This command will first prompt for the
+any Hyperbole minibuffer menu item. This command will first prompt for the
key sequence you want to use to activate the menu item. Immediately
-after it will display the Hyperbole top-level minibuffer menu. Simply
+after, it will display the Hyperbole top-level minibuffer menu. Simply
select the item you want to bind to your key.
</p>
<hr>
@@ -12582,7 +12566,6 @@ Next: <a href="#Concept-Index" accesskey="n"
rel="next">Concept Index</a>, Previ
<tr><td></td><td valign="top"><a
href="#index-actypes-exec_002dkbd_002dmacro"><code>actypes
exec-kbd-macro</code></a>:</td><td> </td><td valign="top"><a
href="#Action-Types">Action Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-actypes-exec_002dshell_002dcmd"><code>actypes
exec-shell-cmd</code></a>:</td><td> </td><td valign="top"><a
href="#Action-Types">Action Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-actypes-exec_002dwindow_002dcmd"><code>actypes
exec-window-cmd</code></a>:</td><td> </td><td valign="top"><a
href="#Action-Types">Action Types</a></td></tr>
-<tr><td></td><td valign="top"><a
href="#index-actypes-function_002din_002dbuffer"><code>actypes
function-in-buffer</code></a>:</td><td> </td><td valign="top"><a
href="#Action-Types">Action Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-actypes-hyp_002dconfig"><code>actypes
hyp-config</code></a>:</td><td> </td><td valign="top"><a
href="#Action-Types">Action Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-actypes-hyp_002drequest"><code>actypes
hyp-request</code></a>:</td><td> </td><td valign="top"><a
href="#Action-Types">Action Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-actypes-hyp_002dsource"><code>actypes
hyp-source</code></a>:</td><td> </td><td valign="top"><a
href="#Action-Types">Action Types</a></td></tr>
@@ -12673,7 +12656,6 @@ Next: <a href="#Concept-Index" accesskey="n"
rel="next">Concept Index</a>, Previ
<tr><td></td><td valign="top"><a href="#index-file_002c-DEMO-1">file,
DEMO</a>:</td><td> </td><td valign="top"><a
href="#Hyperbole-Overview">Hyperbole Overview</a></td></tr>
<tr><td></td><td valign="top"><a href="#index-file_002c-DIR">file,
DIR</a>:</td><td> </td><td valign="top"><a
href="#Implicit-Button-Types">Implicit Button Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-file_002c-EXAMPLE_002ekotl">file,
EXAMPLE.kotl</a>:</td><td> </td><td valign="top"><a
href="#Koutliner">Koutliner</a></td></tr>
-<tr><td></td><td valign="top"><a
href="#index-file_002c-func_002dmenu_002eel">file,
func-menu.el</a>:</td><td> </td><td valign="top"><a
href="#Implicit-Button-Types">Implicit Button Types</a></td></tr>
<tr><td></td><td valign="top"><a href="#index-file_002c-hactypes_002eel">file,
hactypes.el</a>:</td><td> </td><td valign="top"><a
href="#Creating-Types">Creating Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-file_002c-hactypes_002eel-1">file,
hactypes.el</a>:</td><td> </td><td valign="top"><a
href="#Creating-Action-Types">Creating Action Types</a></td></tr>
<tr><td></td><td valign="top"><a href="#index-file_002c-hbut_002eel">file,
hbut.el</a>:</td><td> </td><td valign="top"><a
href="#Creating-Action-Types">Creating Action Types</a></td></tr>
@@ -12863,7 +12845,6 @@ Next: <a href="#Concept-Index" accesskey="n"
rel="next">Concept Index</a>, Previ
<tr><td></td><td valign="top"><a href="#index-ibtypes-elink"><code>ibtypes
elink</code></a>:</td><td> </td><td valign="top"><a
href="#Implicit-Button-Types">Implicit Button Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-ibtypes-elisp_002dcompiler_002dmsg"><code>ibtypes
elisp-compiler-msg</code></a>:</td><td> </td><td valign="top"><a
href="#Implicit-Button-Types">Implicit Button Types</a></td></tr>
<tr><td></td><td valign="top"><a href="#index-ibtypes-etags"><code>ibtypes
etags</code></a>:</td><td> </td><td valign="top"><a
href="#Implicit-Button-Types">Implicit Button Types</a></td></tr>
-<tr><td></td><td valign="top"><a
href="#index-ibtypes-function_002din_002dbuffer"><code>ibtypes
function-in-buffer</code></a>:</td><td> </td><td valign="top"><a
href="#Implicit-Button-Types">Implicit Button Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-ibtypes-git_002dcommit_002dreference"><code>ibtypes
git-commit-reference</code></a>:</td><td> </td><td valign="top"><a
href="#Implicit-Button-Types">Implicit Button Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-ibtypes-git_002dreference"><code>ibtypes
git-reference</code></a>:</td><td> </td><td valign="top"><a
href="#Implicit-Button-Types">Implicit Button Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-ibtypes-github_002dreference"><code>ibtypes
github-reference</code></a>:</td><td> </td><td valign="top"><a
href="#Implicit-Button-Types">Implicit Button Types</a></td></tr>
@@ -13556,10 +13537,8 @@ Previous: <a href="#Function" accesskey="p"
rel="prev">Function</a>, Up: <a href
<tr><td></td><td valign="top"><a href="#index-frames-control">frames
control</a>:</td><td> </td><td valign="top"><a
href="#HyControl">HyControl</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-ftp">ftp</a>:</td><td> </td><td valign="top"><a
href="#Implicit-Button-Types">Implicit Button Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-ftp-1">ftp</a>:</td><td> </td><td valign="top"><a
href="#Implicit-Button-Types">Implicit Button Types</a></td></tr>
-<tr><td></td><td valign="top"><a
href="#index-func_002dmenu">func-menu</a>:</td><td> </td><td
valign="top"><a href="#Implicit-Button-Types">Implicit Button
Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-function">function</a>:</td><td> </td><td valign="top"><a
href="#Thing-Selection">Thing Selection</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-function-1">function</a>:</td><td> </td><td valign="top"><a
href="#Smart-Key-_002d-Delimited-Things">Smart Key - Delimited
Things</a></td></tr>
-<tr><td></td><td valign="top"><a href="#index-function-menu">function
menu</a>:</td><td> </td><td valign="top"><a
href="#Implicit-Button-Types">Implicit Button Types</a></td></tr>
<tr><td></td><td valign="top"><a
href="#index-functon-call-implicit-button">functon call implicit
button</a>:</td><td> </td><td valign="top"><a
href="#Implicit-Button-Types">Implicit Button Types</a></td></tr>
<tr><td colspan="4"> <hr></td></tr>
<tr><th id="Concept-Index_cp_letter-G">G</th><td></td><td></td></tr>
diff --git a/man/hyperbole.info b/man/hyperbole.info
index 84a60de..480662b 100644
Binary files a/man/hyperbole.info and b/man/hyperbole.info differ
diff --git a/man/hyperbole.pdf b/man/hyperbole.pdf
index ce1d4ca..24b3079 100644
Binary files a/man/hyperbole.pdf and b/man/hyperbole.pdf differ
diff --git a/man/hyperbole.texi b/man/hyperbole.texi
index d495194..3ee0407 100644
--- a/man/hyperbole.texi
+++ b/man/hyperbole.texi
@@ -155,7 +155,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.</P>
<PRE>
Edition 8.0.0pre
-Printed May 9, 2021.
+Printed May 13, 2021.
Published by the Free Software Foundation, Inc.
Author: Bob Weiner
@@ -197,7 +197,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
@example
Edition 8.0.0pre
-May 9, 2021
+May 13, 2021
Published by the Free Software Foundation, Inc.
Author: Bob Weiner
@@ -2524,16 +2524,6 @@ whose names begin with a ` ' or `*' character.
@c Display the in-buffer definition of an identifier that point is within or
after, else nil.
@c This triggers only when imenu has already been used to generate an
in-buffer item index.
-@findex ibtypes function-in-buffer
-@vindex file, func-menu.el
-@cindex function menu
-@cindex func-menu
-@item function-in-buffer
-Return the function name defined within this buffer that point is
-within or after, else @code{nil}. This triggers only when the
-func-menu library has been loaded and the current major mode is one
-handled by func-menu.
-
@cindex link, pathname line and column
@cindex line and column
@cindex pathname, line and column
@@ -2786,10 +2776,6 @@ output to the shell buffer before executing SHELL-CMD.
@item exec-window-cmd
Asynchronously execute an external window-based SHELL-CMD string.
-@findex actypes function-in-buffer
-@item function-in-buffer
-Display the definition of function NAME found at POS in the current buffer.
-
@findex actypes hyp-config
@item hyp-config
Insert Hyperbole configuration and debugging information at the end
