7.0.6 test release: many changes, new logo; ibtypes speedups

Changes

@@ -1,5 +1,15 @@
 2019-09-17  Bob Weiner  <[email protected]>
 
+* hui.el (hui:action):
+  hui-mini.el (hui:menu-item):
+  hibtypes.el (hyp-source):
+  hargs.el (hargs:at-p):
+  hyrolo-logic.el (hyrolo-map-logic):
+  hyrolo.el (hyrolo-grep-file): Undo adding second arg t to prin1-to-string
+    call (meant to prevent string properties output) since has side effect
+    of removing needed quote marks and changes the way buffers print which
+    causes (hyp-source) matches to fail.
+
 * hpath.el (hpath:to-line): Added and used in hpath:find and hpath:find-line.
            (hpath:find-line): Changed to save-restriction when move.
 	   (hpath:shell-modes): Added and used in hpath:to-markup-anchor.

HY-ABOUT

@@ -3,7 +3,7 @@
 		   Designed and Written by Bob Weiner
  	        Maintained by Mats Lidell and Bob Weiner
 	         https://www.gnu.org/software/hyperbole/
-                            Version 7.0.5
+                            Version 7.0.6
 
                    Say thanks if you like Hyperbole:
                     https://saythanks.io/to/rswgnu

HY-NEWS

@@ -2,7 +2,7 @@
 				 by Bob Weiner
 
 ===========================================================================
-*                                   V7.0.5
+*                                   V7.0.6
 ===========================================================================
 
   BUTTONS
@@ -32,15 +32,16 @@
         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
 
-    - Must Faster Implicit Buttons: Major speedup in implicit button identification
-      and activation even with the new generalized Action Button syntax thanks to
-      internal optimizations.
+    - Much Faster Implicit Buttons: Major speedup in implicit button identification
+      and activation even with the new generalized Action implicit button type
+      syntax, due to internal optimizations.
 
     - Pathname implicit buttons now flash when activated.
 
     - Pathname implicit buttons may contain both link anchors and line and column
       numbers.  Link anchors now work for shell script editing modes as well
-      using comment lines as anchors.
+      using comment lines as anchors.  Format is:
+      "<path>[#<link-anchor>]:<line-num>[:<col-num>]"
 
     - Variables in paths no longer require a trailing directory separator.
         Both of these are live Hyperbole paths:

Makefile

@@ -63,7 +63,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.5
+HYPB_VERSION = 7.0.6
 
 # Emacs executable used to byte-compile .el files into .elc's.
 # Possibilities include: emacs, infodock, etc.

README.md

@@ -1,4 +1,4 @@
-# GNU Hyperbole 7.0.5 - The Everyday Hypertextual Information Manager
+# GNU Hyperbole 7.0.6 - The Everyday Hypertextual Information Manager
 
 [Say thanks if you like Hyperbole.(https://saythanks.io/to/rswgnu)]
 

README.md.html

@@ -1,5 +1,5 @@
 <h1>
-<a id="user-content-gnu-hyperbole-705---the-everyday-hypertextual-information-manager" class="anchor" href="#gnu-hyperbole-705---the-everyday-hypertextual-information-manager" aria-hidden="true"><span aria-hidden="true" class="octicon octicon-link"></span></a>GNU Hyperbole 7.0.5 - The Everyday Hypertextual Information Manager</h1>
+<a id="user-content-gnu-hyperbole-706---the-everyday-hypertextual-information-manager" class="anchor" href="#gnu-hyperbole-706---the-everyday-hypertextual-information-manager" aria-hidden="true"><span aria-hidden="true" class="octicon octicon-link"></span></a>GNU Hyperbole 7.0.6 - The Everyday Hypertextual Information Manager</h1>
 <p>[Say thanks if you like Hyperbole.(<a href="https://saythanks.io/to/rswgnu" rel="nofollow">https://saythanks.io/to/rswgnu</a>)]</p>
 
 <p><strong>Table of Contents</strong></p>

hargs.el

@@ -392,7 +392,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) t)))
+	      (prin1-to-string (list (rmail:msg-id-get) buffer-file-name))))
 	((eq hargs:reading-p 'symbol)
 	 (let ((sym (hargs:find-tag-default)))
 	   (if (or (fboundp sym) (boundp sym)) sym)))

hbut.el

@@ -872,15 +872,16 @@ With optional FULL when source is a pathname, the full pathname is returned."
 			buffer-file-name
 		      (file-name-nondirectory buffer-file-name)))
 		   ;; Handle any preceding @loc hyp-source implicit button location references.
-		   ;; This is used in report buffers of explicit buttons, i.e. hui:hbut-report.
+		   ;; This is used in report buffers of explicit buttons, i.e. hui:hbut-report
+		   ;; and the *Rolo* output buffer.
 		   ((save-excursion
 		      (save-restriction
 			(widen)
 			(end-of-visible-line)
-			(if (and (search-backward hbut:source-prefix nil t)
-				 (or (memq (preceding-char) '(?\n ?\r))
-				     (= (point) (point-min))))
-			    (hbut:source full)))))
+			(when (and (search-backward hbut:source-prefix nil t)
+				   (or (memq (preceding-char) '(?\n ?\r))
+				       (= (point) (point-min))))
+			  (hbut:source full)))))
 		   (t (current-buffer)))))
     (hbut:key-src-set-buffer src)))
 

hibtypes.el

@@ -1177,12 +1177,13 @@ report buffer behaves the same as the corresponding button in the
 original DEMO file."
   (save-excursion
     (beginning-of-line)
-    (if (looking-at hbut:source-prefix)
-	(let ((src (hbut:source)))
-	  (if 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)))))))
+    (when (looking-at hbut:source-prefix)
+      (let ((src (hbut:source)))
+	(when src
+	  (unless (stringp src)
+	    (setq src (prin1-to-string src)))
+	  (ibut:label-set src (point) (progn (end-of-line) (point)))
+	  (hact 'hyp-source src))))))
 
 ;;; ========================================================================
 ;;; Executes an angle bracket delimited Hyperbole action, Elisp

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 t))))
+			  (prin1-to-string act-form))))
 	    act-form)))))
 
 (defun hui:menu-line (menu-alist)

hui.el

@@ -615,7 +615,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 t))))
+	      (params-str (and params (concat " " (prin1-to-string params))))
 	      )
 	 (while (progn
 		 (while (and (setq act-str

hversion.el

@@ -23,7 +23,7 @@
 ;;; Public variables
 ;;; ************************************************************************
 
-(defconst hyperb:version "7.0.5" "GNU Hyperbole revision number.")
+(defconst hyperb:version "7.0.6" "GNU Hyperbole revision number.")
 
 ;;;###autoload
 (defvar hyperb:microsoft-os-p

hyperbole.el

@@ -6,7 +6,7 @@
 ;; Maintainer:       Bob Weiner <[email protected]>, Mats Lidell <[email protected]>
 ;; Created:          06-Oct-92 at 11:52:51
 ;; Released:         27-Aug-19
-;; Version:          7.0.5
+;; Version:          7.0.6
 ;; 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 t)))))
+;; 	(string-match "(apply " (prin1-to-string func)))))
 
 ;;   (unless (hyperb:package-autoloads-subdirectories-p)
 ;;     ;; Function is not patched, so define it here, call it, and then load

hyrolo-logic.el

@@ -197,7 +197,7 @@ of applications of SEXP that matched entries."
 						  hbut:source-prefix
 						"@loc> ")
 					      "%s")
-				      (prin1-to-string src t))))
+				      (prin1-to-string src))))
 			       (set-buffer display-buf)
 			       (goto-char (point-max))
 			       (if hdr-pos

hyrolo.el

@@ -1078,7 +1078,7 @@ Returns number of matching entries found."
 					     hbut:source-prefix
 					   "@loc> ")
 					 "%s")
-				 (prin1-to-string src t))))
+				 (prin1-to-string src))))
 			  (set-buffer hyrolo-display-buffer)
 			  (goto-char (point-max))
 			  (if hdr-pos

kotl/kotl-autoloads.el

@@ -2,13 +2,20 @@
 ;;
 ;;; Code:
 
+
+;;;### (autoloads nil "kcell" "kcell.el" (0 0 0 0))
+;;; Generated autoloads from kcell.el
+
+(if (fboundp 'register-definition-prefixes) (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, 
+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).
@@ -20,7 +27,7 @@ STILL TODO:
 
 ;;;***
 
-;;;### (autoloads nil "kfile" "kfile.el" (22412 20800 0 0))
+;;;### (autoloads nil "kfile" "kfile.el" (0 0 0 0))
 ;;; Generated autoloads from kfile.el
 
 (autoload 'kfile:find "kfile" "\
@@ -39,12 +46,14 @@ View an existing kotl version-2 file FILE-NAME in a read-only mode.
 
 \(fn FILE-NAME)" t nil)
 
+(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "kfile" '("kfile:")))
+
 ;;;***
 
 ;;;### (autoloads nil "kfill" "kfill.el" (0 0 0 0))
 ;;; Generated autoloads from kfill.el
 
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "kfill" '("fill-paragraph" "kfill:" "prior-fill-prefix" "set-fill-prefix")))
+(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "kfill" '("kfill:" "set-fill-prefix" "prior-fill-prefix")))
 
 ;;;***
 
@@ -64,12 +73,12 @@ 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; 
+   `outline-mode'  - imported as an Emacs outline whose entries begin with
+                     asterisks; 
    .kot
-   .kotl         - imported as a structured koutline
+   .kotl           - imported as a structured koutline
 
-   all others    - imported as text.")
+   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.
@@ -142,11 +151,18 @@ 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)))))
+(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "kimport" '("kimport:")))
+
+;;;***
+
+;;;### (autoloads nil "klabel" "klabel.el" (0 0 0 0))
+;;; Generated autoloads from klabel.el
+
+(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "klabel" '("kotl-label:" "klabel")))
 
 ;;;***
 
-;;;### (autoloads nil "klink" "klink.el" (22481 28335 0 0))
+;;;### (autoloads nil "klink" "klink.el" (0 0 0 0))
 ;;; Generated autoloads from klink.el
 
 (autoload 'klink:create "klink" "\
@@ -156,13 +172,22 @@ See documentation for `kcell:ref-to-id' for valid cell-ref formats.
 
 \(fn REFERENCE)" t nil)
 
+(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "klink" '("klink" "link-to-kotl")))
+
 ;;;***
 
 ;;;### (autoloads nil "kmenu" "kmenu.el" (0 0 0 0))
 ;;; Generated autoloads from kmenu.el
 
 (if (fboundp 'register-definition-prefixes) (register-definition-prefixes "kmenu" '("id-" "kotl-")))
 
+;;;***
+
+;;;### (autoloads nil "knode" "knode.el" (0 0 0 0))
+;;; Generated autoloads from knode.el
+
+(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "knode" '("knode:")))
+
 ;;;***
 
 ;;;### (autoloads nil "kotl-mode" "kotl-mode.el" (0 0 0 0))
@@ -216,6 +241,13 @@ Signal an error if current buffer is not a Hyperbole outline, else return t.
 
 (if (fboundp 'register-definition-prefixes) (register-definition-prefixes "kotl-mode" '("delete-selection-pre-hook" "kotl-mode" "yank-")))
 
+;;;***
+
+;;;### (autoloads nil "kprop-xe" "kprop-xe.el" (0 0 0 0))
+;;; Generated autoloads from kprop-xe.el
+
+(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "kprop-xe" '("kproperty:")))
+
 ;;;***
 
 ;;;### (autoloads nil "kview" "kview.el" (0 0 0 0))
@@ -232,8 +264,7 @@ Signal an error if current buffer is not a Hyperbole outline, else return t.
 
 ;;;***
 
-;;;### (autoloads nil nil ("kcell.el" "klabel.el" "knode.el" "kprop-em.el"
-;;;;;;  "kprop-xe.el" "kproperty.el") (0 0 0 0))
+;;;### (autoloads nil nil ("kprop-em.el" "kproperty.el") (0 0 0 0))
 
 ;;;***