emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/hyperbole b155e83 01/21: 7.0.3.3 test release: Flash pa


From: Stefan Monnier
Subject: [elpa] externals/hyperbole b155e83 01/21: 7.0.3.3 test release: Flash pathname implicit buttons; improve doc
Date: Fri, 4 Oct 2019 14:58:23 -0400 (EDT)

branch: externals/hyperbole
commit b155e838f6caf311aaeae8ba22d7a51114394fe9
Author: Bob Weiner <address@hidden>
Commit: Bob Weiner <address@hidden>

    7.0.3.3 test release: Flash pathname implicit buttons; improve doc
---
 Changes                | 34 ++++++++++++++++++++++++++++++++++
 DEMO                   |  6 +++++-
 HY-NEWS                | 15 +++++++++------
 Makefile               |  4 ++--
 README.md              |  2 +-
 hactypes.el            | 43 ++++++++++++++++++++++++-------------------
 hargs.el               |  2 +-
 hibtypes.el            | 18 +++++++++---------
 hpath.el               | 28 ++++++++++++++++++++++++++++
 hui-mini.el            |  2 +-
 hui.el                 | 10 +++++-----
 hversion.el            |  2 +-
 hyperbole-pkg.el       |  2 +-
 hyperbole.el           |  6 +++---
 hyrolo-logic.el        |  2 +-
 hyrolo.el              |  2 +-
 kotl/kimport.el        |  1 +
 kotl/kotl-autoloads.el | 11 ++++++++++-
 kotl/kotl-mode.el      |  2 +-
 man/hyperbole.texi     | 26 +++++++++++++-------------
 man/version.texi       |  6 +++---
 21 files changed, 154 insertions(+), 70 deletions(-)

diff --git a/Changes b/Changes
index 1a3004f..321de85 100644
--- a/Changes
+++ b/Changes
@@ -1,7 +1,41 @@
+2019-08-18  Bob Weiner  <address@hidden>
+
+* hyperbole: Added second arg of t to most calls to prin1-to-string so 
properties are not utilizied,
+    notably when displaying @loc> locations.
+
+* hversion.el: Change to using numeric test release codes instead of letters 
to ease version parsing.
+
+2019-08-16  Bob Weiner  <address@hidden>
+
+* hpath.el (hpath:start-end): Added so implicit pathname buttons can flash 
when activated.
+
+2019-08-14  Bob Weiner  <address@hidden>
+
+* hibtypes.el (elink, glink, ilink): Renamed from link-to-e/g/ibut.
+
+2019-08-13  Bob Weiner  <address@hidden>
+
+* hactypes.el (man-show): Eliminated infinite recursion and made work with 
latest
+    Emacs man.el library.
+              (link-to-ebut): Reversed order of args to match link-to-ibut.
+
+2019-08-12  Bob Weiner  <address@hidden>
+
+* kotl/kimport.el (kimport:copy-and-set-buffer): Made an autoload since M-x 
kotl-mode
+    may call kfile;create which then calls this function.
+
+==============================================================================
+V7.0.3.3 changes ^^^^:
+==============================================================================
+
 2019-08-06  Bob Weiner  <address@hidden>
 
 * hyrolo-menu.el (infodock-hyrolo-menu): Fixed Edit-Rolo to call a function 
rather than an sexp.
 
+==============================================================================
+V7.0.3b changes ^^^^:
+==============================================================================
+
 2019-08-05  Bob Weiner  <address@hidden>
 
 * hypb.el (hypb:rgrep-command): Changed to use zgrep only when it is the BSD 
version,
diff --git a/DEMO b/DEMO
index d72a6db..0d4927a 100644
--- a/DEMO
+++ b/DEMO
@@ -41,6 +41,11 @@ and shows how Hyperbole can support a style of 
self-documenting, interactive
 files.  See the glossary in the Hyperbole Manual, "(hyperbole)Glossary", if
 terms used here are unfamiliar to you.
 
+Once you read the next section on "#Smart Keys", you can then browse any
+other sections individually as you like.  Many people initially use Hyperbole
+for its "#Implicit Buttons" capabilities, so you may want to jump to that
+section.
+
 
 * Smart Keys 
 
@@ -216,7 +221,6 @@ Hyperbole minibuffer menu item, Screen/WindowsControl {C-h 
h s w}, will do
 the same thing.
 
 Once in HyControl, your minibuffer window at the bottom of the selected frame
-
 will display a summary of keys you may use to adjust your windows until you
 press {q} or {Q} to quit from HyControl.  If you don't see it, press {?}, to
 turn on this help display.  The key, {t}, will always switch you between
diff --git a/HY-NEWS b/HY-NEWS
index 3971309..41d6d25 100644
--- a/HY-NEWS
+++ b/HY-NEWS
@@ -2,7 +2,7 @@
                                 by Bob Weiner
 
 ===========================================================================
-*                                   V7.0.3b
+*                                   V7.0.3.3
 ===========================================================================
 
   BUTTONS
@@ -23,6 +23,8 @@
         debugger-source: Jump to the source of errors from the Python pytype 
package
         ipython-stack-frame: Jump to the source of ipython stack traces and 
exceptions
 
+    - Pathname implicit buttons now flash when activated.
+
 
   DOCUMENTATION
 
@@ -32,8 +34,9 @@
       controlling image types that Hyperbole displays within Emacs.
 
     - Implicit Button Types: Split off type descriptions to this new
-      subsection and added these types: ripgrep-msg, ipython-stack-frame, 
link-to-ibut,
-      link-to-gbut, link-to-ebut.
+      subsection and added these types: ripgrep-msg, ipython-stack-frame,
+      ilink (link to implicit button), glink (link to global button), and
+      elink (link to explicit button).
 
     - Implicit Buttons: Added description and example of implicit button 
labels.
       DEMO (Implicit Buttons): Added description and example of implicit 
button labels.
@@ -83,9 +86,9 @@
       hbut:label-p: Updated to handle implicit button labels.
       ibut:label-separator-regexp, hbut:outside-comment-p: Added.
 
-    - link-to-gbut, glink:start, glink:end: Added for in-buffer links to 
global buttons.
-      link-to-ebut, elink:start, elink:end: Added for in-buffer links to 
explicit buttons.
-      link-to-ibut, ilink:start, ilink:end: Added for in-buffer links to 
implicit buttons.
+    - elink, elink:start, elink:end: Added for in-buffer links to explicit 
buttons.
+      glink, glink:start, glink:end: Added for in-buffer links to global 
buttons.
+      ilink, ilink:start, ilink:end: Added for in-buffer links to implicit 
buttons.
 
     - hsys-org-set-ibut-label: Added and used in org-mode ibtype.
       org-mode, hsys-org-at-block-start-p: Added Action Key activation of Org 
blocks when
diff --git a/Makefile b/Makefile
index 968dd18..b5e7e2f 100644
--- a/Makefile
+++ b/Makefile
@@ -54,7 +54,7 @@
 
 # This ver setup won't work under any make except GNU make, so set it manually.
 #HYPB_VERSION = "`head -3 hversion.el | tail -1 | sed -e 's/.*|\(.*\)|.*/\1/'`"
-HYPB_VERSION = 7.0.3b
+HYPB_VERSION = 7.0.3.3
 
 # Emacs executable used to byte-compile .el files into .elc's.
 # Possibilities include: emacs, infodock, etc.
@@ -305,7 +305,7 @@ ftp: package
        cd $(pkg_dir) && $(GNUFTP) hyperbole-$(HYPB_VERSION).tar.gz
 
 kotl/kotl-autoloads.el: $(EL_KOTL)
-       $(EMACS) $(BATCHFLAGS) -eval '(progn (let ((generated-autoload-file 
(expand-file-name "kotl/kotl-autoloads.el"))) (update-directory-autoloads 
(expand-file-name "kotl/"))))' && $(RM) kotl/kotl-autoloads.el~
+       $(EMACS) $(BATCHFLAGS) -eval '(progn (setq generated-autoload-file 
(expand-file-name "kotl/kotl-autoloads.el")) (update-directory-autoloads 
(expand-file-name "kotl/")))' && $(RM) kotl/kotl-autoloads.el~
 #      $(EMACS) $(BATCHFLAGS) -eval '(progn (let ((generated-autoload-file 
(expand-file-name "kotl/kotl-autoloads.el"))) (update-directory-autoloads 
(expand-file-name "kotl/"))))' && sed -i '3 i ;; Copyright (C) 2017  Free 
Software Foundation, Inc.\n;;' $@ && $(RM) kotl/kotl-autoloads.el~
 
 # Used for ftp.gnu.org tarball distributions.
diff --git a/README.md b/README.md
index 172b753..3e01631 100644
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
-# GNU Hyperbole 7.0.3b - The Everyday Hypertextual Information Manager
+# GNU Hyperbole 7.0.3.3 - The Everyday Hypertextual Information Manager
 
 [Say thanks if you like Hyperbole.(https://saythanks.io/to/rswgnu)]
 
diff --git a/hactypes.el b/hactypes.el
index e082860..c0b6f82 100644
--- a/hactypes.el
+++ b/hactypes.el
@@ -221,7 +221,8 @@ For example:  To: address@hidden\n")))
   "Displays a buffer or file from a line beginning with `hbut:source-prefix'."
   (interactive
    (list (prin1-to-string (get-buffer-create
-                          (read-buffer "Buffer to link to: ")))))
+                          (read-buffer "Buffer to link to: "))
+                         t)))
   (if (stringp buf-str-or-file)
       (cond ((string-match "\\`#<buffer \"?\\([^ \n\"]+\\)\"?>" 
buf-str-or-file)
             (hpath:display-buffer
@@ -249,8 +250,9 @@ Use `link-to-file' instead for a permanent link."
   (interactive "DDirectory to link to: ")
   (hpath:find directory))
 
-(defact link-to-ebut (key-file key)
-  "Performs action given by an explicit button, specified by KEY-FILE and KEY."
+(defact link-to-ebut (key &optional key-file)
+  "Performs action given by an explicit button, specified by KEY and optional 
KEY-FILE.
+KEY-FILE defaults to the current buffer's file name."
   (interactive
    (let (but-file but-lbl)
      (while (cond ((setq but-file
@@ -262,8 +264,7 @@ Use `link-to-file' instead for a permanent link."
                   (message "(link-to-ebut): You cannot read `%s'."
                            but-file)
                   (beep) (sit-for 3))))
-     (list but-file
-          (progn
+     (list (progn
             (find-file-noselect but-file)
             (while (string-equal "" (setq but-lbl
                                           (hargs:read-match
@@ -271,11 +272,15 @@ Use `link-to-file' instead for a permanent link."
                                            (ebut:alist but-file)
                                            nil nil nil 'ebut)))
               (beep))
-            (ebut:label-to-key but-lbl)))))
-  (unless (called-interactively-p 'interactive)
-    (setq key-file (hpath:validate (hpath:substitute-value key-file))))
-  (let ((but (ebut:get key (find-file-noselect key-file))))
-    (if but (hbut:act but)
+            (ebut:label-to-key but-lbl))
+          but-file)))
+  (if key-file
+      (unless (called-interactively-p 'interactive)
+       (setq key-file (hpath:validate (hpath:substitute-value key-file))))
+    (setq key-file buffer-file-name))
+  (let ((but (and key-file (ebut:get key (find-file-noselect key-file)))))
+    (if but
+       (hbut:act but)
       (hypb:error "(link-to-ebut): No button `%s' in `%s'."
                  (ebut:key-to-label key)
                  key-file))))
@@ -393,7 +398,9 @@ available.  Filename may be given without the .info suffix."
     (hypb:error "(link-to-Info-node): Invalid Info node: `%s'" string)))
 
 (defact link-to-ibut (key &optional key-file point)
-  "Performs an action given by an implicit button, specified by KEY-FILE, KEY 
and optional POINT.
+  "Performs an action given by an implicit button, specified by KEY, optional 
KEY-FILE and POINT.
+KEY-FILE defaults to the current buffer's file and POINT to the current point.
+
 When creating the button, point must be on the implicit button to which to link
 and its buffer must have a file attached."
   (interactive
@@ -405,9 +412,8 @@ and its buffer must have a file attached."
           defaults
         (list nil nil nil)))))
   (if key-file
-      (or (called-interactively-p 'interactive)
-         (null key-file)
-         (setq key-file (hpath:validate (hpath:substitute-value key-file))))
+      (unless (called-interactively-p 'interactive)
+       (setq key-file (hpath:validate (hpath:substitute-value key-file))))
     (setq key-file buffer-file-name))
   (let (but)
     (save-excursion
@@ -532,12 +538,11 @@ package to display search results."
 
 (defact man-show (topic)
   "Displays man page on TOPIC, which may be of the form <command>(<section>).
-If using the Superman manual entry package, see the documentation for
-`sm-notify' to control where the man page is displayed."
+Uses `hpath:display-where' setting to control where the man page is displayed."
   (interactive "sManual topic: ")
-  (let ((display-buffer-function
-        (lambda (buffer &rest unused) (hpath:display-buffer buffer))))
-    (manual-entry topic)))
+  (require 'man)
+  (let ((Man-notify-method 'meek))
+    (hpath:display-buffer (man topic))))
 
 (defact rfc-toc (&optional buf-name opoint)
   "Computes and displays summary of an Internet rfc in BUF-NAME.
diff --git a/hargs.el b/hargs.el
index 39d1635..c4610bb 100644
--- a/hargs.el
+++ b/hargs.el
@@ -391,7 +391,7 @@ Handles all of the interactive argument types that 
`hargs:iform-read' does."
                     (t node)))))
        ((eq hargs:reading-p 'mail)
         (and (hmail:reader-p) buffer-file-name
-             (prin1-to-string (list (rmail:msg-id-get) buffer-file-name))))
+             (prin1-to-string (list (rmail:msg-id-get) buffer-file-name) t)))
        ((eq hargs:reading-p 'symbol)
         (let ((sym (hargs:find-tag-default)))
           (if (or (fboundp sym) (boundp sym)) sym)))
diff --git a/hibtypes.el b/hibtypes.el
index bbba40a..4c02513 100644
--- a/hibtypes.el
+++ b/hibtypes.el
@@ -148,13 +148,13 @@ display options."
     (let ((path (hpath:at-p))
          full-path)
       (if path
-         (progn (ibut:label-set path)
+         (progn (apply #'ibut:label-set path (hpath:start-end path))
                 (hact 'link-to-file path))
        ;;
        ;; Match to Emacs Lisp and Info files without any directory component.
        (if (setq path (hpath:delimited-possible-path))
            (cond ((string-match "\\`[^\\\\/~]+\\.elc?\\(\\.gz\\)?\\'" path)
-                  (ibut:label-set path)
+                  (apply #'ibut:label-set path (hpath:start-end path))
                   (if (string-match hpath:prefix-regexp path)
                       (hact 'hpath:find path)
                     (setq full-path (locate-library path))
@@ -169,10 +169,10 @@ display options."
                        (string-match "\\`(\\([^ \t\n\r\f]+\\))\\'" path)
                        (save-match-data (require 'info))
                        (Info-find-file (match-string 1 path) t))
-                  (ibut:label-set path)
+                  (apply #'ibut:label-set path (hpath:start-end path))
                   (hact 'link-to-Info-node (format "%sTop" path)))
                  ((string-match hpath:info-suffix path)
-                  (ibut:label-set path)
+                  (apply #'ibut:label-set path (hpath:start-end path))
                   (hact 'link-to-Info-node (format "(%s)Top" path)))
                  ;; Otherwise, fall through and allow other implicit
                  ;; button types to handle this context.
@@ -636,7 +636,7 @@ Requires the Emacs builtin Tramp library for ftp file 
retrievals."
 (defconst elink:end   ">"
   "String matching the end of a link to a Hyperbole explicit button.")
 
-(defib link-to-ebut ()
+(defib elink ()
   "At point, activates a link to an explicit button.
 The explicit button's action is executed in the context of the current buffer.
 
@@ -655,7 +655,7 @@ Recognizes the format '<elink:' <button label> '>', e.g. 
<elink: project-list>."
 (defconst glink:end   ">"
   "String matching the end of a link to a Hyperbole global button.")
 
-(defib link-to-gbut ()
+(defib glink ()
   "At point, activates a link to a global button.
 The global button's action is executed in the context of the current buffer.
 
@@ -674,8 +674,8 @@ Recognizes the format '<glink:' <button label> '>', e.g. 
<glink: open todos>."
 (defconst ilink:end   ">"
   "String matching the end of a link to a Hyperbole implicit button.")
 
-(defib link-to-ibut ()
-  "At point, activates a link to an implicit button.
+(defib ilink ()
+  "At point, activates a link to a labeled implicit button.
 The implicit button's action is executed in the context of the current buffer.
 
 Recognizes the format '<ilink:' <button label> '>', e.g. <ilink: my sequence 
of keys>."
@@ -1156,7 +1156,7 @@ original DEMO file."
     (if (looking-at hbut:source-prefix)
        (let ((src (hbut:source)))
          (if src
-             (progn (if (not (stringp src)) (setq src (prin1-to-string src)))
+             (progn (if (not (stringp src)) (setq src (prin1-to-string src t)))
                     (ibut:label-set src (point) (progn (end-of-line) (point)))
                     (hact 'hyp-source src)))))))
 
diff --git a/hpath.el b/hpath.el
index d3151f8..364e79b 100644
--- a/hpath.el
+++ b/hpath.el
@@ -1133,6 +1133,34 @@ Returns PATH unchanged when it is not a valid path."
 See the documentation of the `hpath:rfc' variable."
   (format hpath:rfc rfc-num))
 
+(defun hpath:start-end (path)
+  "If point is within the first line of PATH, return a list of its start and 
end positions (sans delimiters), else nil.
+NOTE: This will return nil if the path has been normalized in any way
+\(adjusted for mount points or variables replaced) since the
+in-buffer path will not match."
+  ;; Create a regexp from path by regexp-quoting it and then matching spaces
+  ;; to any whitespace.
+  (when (stringp path)
+    (let ((path-regexp (replace-regexp-in-string "[ \t\n\r]+" "[ \t\n\r]" 
(regexp-quote path) t t))
+         (opoint (point))
+         found
+         search-end-point
+         start
+         end)
+      ;; Save point, move to bol and search for regexp match to a max of 5 
lines
+      ;; just to limit searches in large buffers.
+      (save-excursion
+       (forward-line 0)
+       (setq search-end-point (save-excursion (forward-line 5) (point)))
+       (while (and (not found)
+                   (re-search-forward path-regexp search-end-point t))
+                ;; If match found, ensure that start pos is <= orig point and 
end pos >
+                ;; orig point and return (start . end).
+                (setq start (match-beginning 0) end (match-end 0)
+                      found (and (<= start opoint) (>= end opoint)))))
+      (if found
+         (list start end)))))
+
 (defun hpath:substitute-value (path)
   "Substitutes matching value for Emacs Lisp variables and environment 
variables in PATH and returns PATH."
   ;; Uses free variables `match' and `start' from `hypb:replace-match-string'.
diff --git a/hui-mini.el b/hui-mini.el
index 70b626a..6d350bc 100644
--- a/hui-mini.el
+++ b/hui-mini.el
@@ -309,7 +309,7 @@ constructs.  If not given, the top-level Hyperbole menu is 
used."
                    help-str
                  (concat (car label-act-help-list) "\n  "
                          help-str "\n    Action: "
-                         (prin1-to-string act-form))))
+                         (prin1-to-string act-form t))))
            act-form)))))
 
 (defun hui:menu-line (menu-alist)
diff --git a/hui.el b/hui.el
index 12f2680..1138f0f 100644
--- a/hui.el
+++ b/hui.el
@@ -613,7 +613,7 @@ See also documentation for `hui:link-possible-types'."
        (let* ((act) (act-str)
              (params (actype:params actype))
              (params-no-keywords (actype:param-list actype))
-             (params-str (and params (concat " " (prin1-to-string params))))
+             (params-str (and params (concat " " (prin1-to-string params t))))
              )
         (while (progn
                 (while (and (setq act-str
@@ -965,7 +965,7 @@ arguments it requires.  Any text properties are removed 
from string arguments."
     (ebut:operate label (if modify label))))
 
 (defun hui:link-possible-types ()
-  "Returns list of possible link types for a Hyperbole button link to point.
+  "Returns list of possible link action types during editing of a Hyperbole 
button.
 Each list element is a list of the link type and any arguments it requires.
 
 The link types considered are fixed; this function must be changed to alter
@@ -992,11 +992,11 @@ Buffer without File      link-to-buffer-tmp"
   (let (val)
     (delq nil
          (list (cond ((eq (current-buffer) (get-file-buffer gbut:file))
-                      (list 'link-to-gbut buffer-file-name (hbut:label-p)))
+                      (list 'link-to-gbut (hbut:label-p)))
                      ((ebut:at-p)
-                      (list 'link-to-ebut buffer-file-name (ebut:label-p)))
+                      (list 'link-to-ebut (ebut:label-p)))
                      ((setq val (ibut:at-p t))
-                      (list 'link-to-ibut buffer-file-name val)))
+                      (list 'link-to-ibut val)))
                (cond ((eq major-mode 'Info-mode)
                       (if (and Info-current-node
                                (member Info-current-node
diff --git a/hversion.el b/hversion.el
index 4b2845a..3b92729 100644
--- a/hversion.el
+++ b/hversion.el
@@ -23,7 +23,7 @@
 ;;; Public variables
 ;;; ************************************************************************
 
-(defconst hyperb:version "7.0.3b" "GNU Hyperbole revision number.")
+(defconst hyperb:version "7.0.3c" "GNU Hyperbole revision number.")
 
 ;;;###autoload
 (defvar hyperb:microsoft-os-p
diff --git a/hyperbole-pkg.el b/hyperbole-pkg.el
index 24c04fc..c7729da 100644
--- a/hyperbole-pkg.el
+++ b/hyperbole-pkg.el
@@ -1,5 +1,5 @@
 ;; -*- no-byte-compile: t -*-
-(define-package "hyperbole" "7.0.3b" "GNU Hyperbole: The Everyday Hypertextual 
Information Manager"
+(define-package "hyperbole" "7.0.3.3" "GNU Hyperbole: The Everyday 
Hypertextual Information Manager"
   '((emacs "24.4"))
   :url "http://www.gnu.org/software/hyperbole";
   :keywords '("comm" "convenience" "files" "frames" "hypermedia" "languages"
diff --git a/hyperbole.el b/hyperbole.el
index f2b215f..534a5a3 100644
--- a/hyperbole.el
+++ b/hyperbole.el
@@ -5,8 +5,8 @@
 ;; Author:           Bob Weiner
 ;; Maintainer:       Bob Weiner <address@hidden> and Mats Lidell 
<address@hidden>
 ;; Created:          06-Oct-92 at 11:52:51
-;; Released:         21-Jan-19
-;; Version:          7.0.3b
+;; Released:         18-Aug-19
+;; Version:          7.0.3.3
 ;; Keywords:         comm, convenience, files, frames, hypermedia, languages, 
mail, matching, mouse, multimedia, outlines, tools, wp
 ;; Package:          hyperbole
 ;; Package-Requires: ((emacs "24.4"))
@@ -472,7 +472,7 @@ With optional ARG, override them iff ARG is positive."
 ;;       ;; nothing more need be done.
 ;;       (if (byte-code-function-p func)
 ;;       (delq nil (mapcar (lambda (item) (eq item 'apply)) (aref func 2)))
-;;     (string-match "(apply " (prin1-to-string func)))))
+;;     (string-match "(apply " (prin1-to-string func t)))))
 
 ;;   (unless (hyperb:package-autoloads-subdirectories-p)
 ;;     ;; Function is not patched, so define it here, call it, and then load
diff --git a/hyrolo-logic.el b/hyrolo-logic.el
index d532b6c..da0d0be 100644
--- a/hyrolo-logic.el
+++ b/hyrolo-logic.el
@@ -197,7 +197,7 @@ of applications of SEXP that matched entries."
                                                  hbut:source-prefix
                                                "@loc> ")
                                              "%s")
-                                     (prin1-to-string src))))
+                                     (prin1-to-string src t))))
                               (set-buffer display-buf)
                               (goto-char (point-max))
                               (if hdr-pos
diff --git a/hyrolo.el b/hyrolo.el
index b6058ff..cdd3937 100644
--- a/hyrolo.el
+++ b/hyrolo.el
@@ -1078,7 +1078,7 @@ Returns number of matching entries found."
                                             hbut:source-prefix
                                           "@loc> ")
                                         "%s")
-                                (prin1-to-string src))))
+                                (prin1-to-string src t))))
                          (set-buffer hyrolo-display-buffer)
                          (goto-char (point-max))
                          (if hdr-pos
diff --git a/kotl/kimport.el b/kotl/kimport.el
index 702a19c..cd2a456 100644
--- a/kotl/kimport.el
+++ b/kotl/kimport.el
@@ -474,6 +474,7 @@ in IMPORT-FROM, used to show a running tally of the 
imported statements."
     (goto-char start))
   count)
 
+;;;###autoload
 (defun kimport:copy-and-set-buffer (source)
   "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.
diff --git a/kotl/kotl-autoloads.el b/kotl/kotl-autoloads.el
index daf4bc0..0d84c64 100644
--- a/kotl/kotl-autoloads.el
+++ b/kotl/kotl-autoloads.el
@@ -133,7 +133,16 @@ The variable, `paragraph-start,' is used to determine 
paragraphs.
 
 \(fn IMPORT-FROM OUTPUT-TO &optional CHILDREN-P)" t nil)
 
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes 
"kimport" '("kimport:")))
+(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)
+
+(if (fboundp 'register-definition-prefixes) (register-definition-prefixes 
"kimport" '(#("kimport:" 0 8 (fontified nil)))))
 
 ;;;***
 
diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index eb14fed..8ef1871 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -2398,7 +2398,7 @@ confirmation."
      (if value
         (setq value (read-minibuffer
                      (format "Change the value of `%s' to: " attribute)
-                     (prin1-to-string value)))
+                     (prin1-to-string value t)))
        (setq value (read-minibuffer
                    (format "Set property `%s' to (use double quotes around a 
string): " attribute))))
      (list attribute value nil)))
diff --git a/man/hyperbole.texi b/man/hyperbole.texi
index fad543c..590719a 100644
--- a/man/hyperbole.texi
+++ b/man/hyperbole.texi
@@ -154,8 +154,8 @@ WITHOUT ANY WARRANTY, without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.</P>
 
 <PRE>
-Edition 7.0.3b
-Printed August 11, 2019.
+Edition 7.0.3.3
+Printed August 18, 2019.
 
   Published by the Free Software Foundation, Inc.
   Author:    Bob Weiner
@@ -196,8 +196,8 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 @sp 2
 
 @example
-Edition 7.0.3b
-Augut 11, 2019
+Edition 7.0.3.3
+Augut 18, 2019
 
   Published by the Free Software Foundation, Inc.
   Author:    Bob Weiner
@@ -473,7 +473,7 @@ Smart Keyboard Keys
 @chapter Introduction
 
 This edition of the GNU Hyperbole Manual is for use with any version
-7.0.3b or greater of GNU Hyperbole.  Hyperbole runs atop GNU Emacs 24.3
+7.0.3.3 or greater of GNU Hyperbole.  Hyperbole runs atop GNU Emacs 24.3
 or higher.  It will trigger an error if your Emacs is older.
 
 This chapter summarizes the structure of the rest of the manual,
@@ -1961,15 +1961,15 @@ Messages are recognized in any buffer (other than a 
helm completion buffer).
 Jumps to a line associated with grep or compilation error messages.
 Messages are recognized in any buffer.
 
-@findex ibtypes link-to-ibut
+@findex ibtypes ilink
 @cindex implicit button link
 @cindex link to implicit button
 @cindex ilink
 @item link-to-ibut <ilink>
 At point, activates a link to an implicit button within the current buffer.
-Recognizes the format ’<ilink:’ <button label> ’>’, e.g. <ilink: my sequence 
of keys>.
+Recognizes the format ’<ilink:’ <button label> ’>’, e.g. <ilink: my key 
sequence>.
 
-@findex ibtypes link-to-gbut
+@findex ibtypes glink
 @cindex global button link
 @cindex link to global button
 @cindex glink
@@ -1978,7 +1978,7 @@ At point, activates a link to a global button.
 The global button’s action is executed in the context of the current buffer.
 Recognizes the format ’<glink:’ <button label> ’>’, e.g. <glink: open todos>.
 
-@findex ibtypes link-to-ebut
+@findex ibtypes elink
 @cindex explicit button link
 @cindex link to explicit button
 @cindex elink
@@ -2567,7 +2567,7 @@ filename and nodename is available.  Filename may be 
given without the
 
 @findex actypes link-to-ibut
 @item link-to-ibut
-Performs an action given by an implicit button, specified by KEY-FILE, KEY and 
optional POINT.
+Performs an action given by an implicit button, specified by KEY, optional 
KEY-FILE and POINT.
 
 @findex actypes link-to-kcell
 @findex kcell:ref-to-id
@@ -2632,11 +2632,11 @@ to match each service to its search url.  Uses 
@code{hyperbole-web-search-browse
 and the @code{browse-url} package to display search results.
 
 @findex actypes man-show
-@vindex sm-notify
+@vindex hpath:display-where
+@cindex man page
 @item man-show
 Displays a man page on TOPIC, which may be of the form 
@samp{<command>(<section>}).
-If using the Superman manual entry package, see the documentation for 
@code{sm-notify}
-to control where the man page is displayed.
+Uses @code{hpath:display-where} setting to control where the man page is 
displayed.
 
 @findex actypes rfc-toc
 @item rfc-toc
diff --git a/man/version.texi b/man/version.texi
index 25d4cc6..53a68a0 100644
--- a/man/version.texi
+++ b/man/version.texi
@@ -1,4 +1,4 @@
-@set UPDATED August 11, 2019
+@set UPDATED August 18, 2019
 @set UPDATED-MONTH August 2019
-@set EDITION 7.0.3b
-@set VERSION 7.0.3b
+@set EDITION 7.0.3.3
+@set VERSION 7.0.3.3



reply via email to

[Prev in Thread] Current Thread [Next in Thread]