[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole 62f3fd2 01/51: 7.0.7 test release: many chang
|
From: |
Stefan Monnier |
|
Subject: |
[elpa] externals/hyperbole 62f3fd2 01/51: 7.0.7 test release: many changes, new logo; fixed def macros |
|
Date: |
Sun, 12 Jul 2020 18:10:06 -0400 (EDT) |
branch: externals/hyperbole
commit 62f3fd2532676fc225ad6d30f790f01ab9a0c12f
Author: Bob Weiner <Bob.Weiner@DuffandPhelps.com>
Commit: Bob Weiner <Bob.Weiner@DuffandPhelps.com>
7.0.7 test release: many changes, new logo; fixed def macros
---
Changes | 52 +++++++++++++++++++++++++++++
HY-ABOUT | 2 +-
HY-NEWS | 22 ++++++------
Makefile | 5 +--
README.md | 2 +-
README.md.html | 2 +-
hact.el | 22 ++++++------
hactypes.el | 10 +++++-
hbut.el | 14 ++++++--
hib-social.el | 6 ++--
hibtypes.el | 17 ++++++----
hmouse-drv.el | 7 ++--
hmouse-sh.el | 92 +++++++++++++++++++++++++--------------------------
hmouse-tag.el | 12 +++----
hui.el | 2 +-
hversion.el | 2 +-
hyperbole-banner.png | Bin 14744 -> 28333 bytes
hyperbole.el | 2 +-
kotl/kotl-mode.el | 1 -
man/hyperbole.html | 17 ++++++----
man/hyperbole.info | Bin 517208 -> 517448 bytes
man/hyperbole.pdf | Bin 1277862 -> 1278118 bytes
man/hyperbole.texi | 19 +++++++----
man/version.texi | 8 ++---
24 files changed, 203 insertions(+), 113 deletions(-)
diff --git a/Changes b/Changes
index 0f2bdaf..4e60f08 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,51 @@
+2019-10-01 Bob Weiner <rsw@gnu.org>
+
+* hact.el (htype:delete): Removed improper quote in (fboundp 'sym) call.
+ (htype:symbol): Reverted to prior version which properly creates
+ previously undefined Elisp symbols, thereby fixing htype:create.
+ (actype:create): Made symtable:add call part of compile-time macro
value.
+
+2019-09-24 Mats Lidell <matsl@gnu.org>
+
+* Makefile (ELC_COMPILE): Added missing kprop-em.elc.
+
+2019-09-23 Bob Weiner <rsw@gnu.org>
+
+* hui.el (hui:link-directly): Called symtable:actype-p replacing invalid
+ htype:actype-p call.
+
+* hmouse-drv.el (hkey-buffer-move): Wrapped (require 'windmove) in
eval-and-compile
+ to remove a byte-compiler warning.
+
+2019-09-22 Bob Weiner <rsw@gnu.org>
+
+* hact.el (action:path-args-rel): Added file-name-directory call so always
+ sends a directory as the second argument, preventing off-by-one level
+ of relative directory generation.
+
+2019-09-19 Bob Weiner <rsw@gnu.org>
+
+* hmouse-drv.el (hkey-help): Added display of ibtype, if any.
+
+* hbut.el (ibtype:def-symbol): Added.
+
+* hact.el (actype:def-symbol): Change mislabeled 'sym-name' to 'name'.
+
+2019-09-18 Bob Weiner <rsw@gnu.org>
+
+* kotl/kotl-mode.el (kotl-mode:top-cells): Removed (kvspec:activate)
+ which was using the unchanged viewspec that improperly set the view.
+
+* hibtypes.el (action): Updated to handle boolean function results.
+ hactypes.el (display-boolean): Added to display the result of Action ibtypes
+ boolean function calls.
+ man/hyperbole.texi (Action Buttons): Added paragraph on boolean
+ predicate result display.
+
+==============================================================================
+V7.0.7 changes ^^^^:
+==============================================================================
+
2019-09-17 Bob Weiner <rsw@gnu.org>
* hui.el (hui:action):
@@ -181,6 +229,10 @@
* DEMO: Changed most 'click' uses in DEMO to 'press'.
+==============================================================================
+V7.0.6 changes ^^^^:
+==============================================================================
+
* man/hyperbole.texi (Implicit Button Type Summaries): Changed to Implicit
Button Types.
(Implicit Button Type): Changed to Implicit Button
diff --git a/HY-ABOUT b/HY-ABOUT
index 76fa471..f2939fa 100644
--- a/HY-ABOUT
+++ b/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.6
+ Version 7.0.7
Say thanks if you like Hyperbole:
https://saythanks.io/to/rswgnu
diff --git a/HY-NEWS b/HY-NEWS
index 4f0c6b7..6b93a7f 100644
--- a/HY-NEWS
+++ b/HY-NEWS
@@ -2,7 +2,7 @@
by Bob Weiner
===========================================================================
-* V7.0.6
+* V7.0.7
===========================================================================
BUTTONS
@@ -28,7 +28,7 @@
<glink: global button label to link to>
link-to-gbut
<ilink: implicit button label to link to: optional ibut file>
link-to-ibut
- - Other new implicit button types:
+ - Other New Implicit Button Types:
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
@@ -36,15 +36,17 @@
and activation even with the new generalized Action implicit button type
syntax, due to internal optimizations.
- - Pathname implicit buttons now flash when activated.
+ - Pathname Flashing: 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. Format is:
- "<path>[#<link-anchor>]:<line-num>[:<col-num>]"
+ - Pathname References: Pathname implicit buttons may contain both link
anchors
+ and line and column numbers. 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:
+ - Shell Script Link Anchors: Link anchors now work for shell script
editing modes
+ as well using comment lines as the anchors, e.g. "myscript.sh#Env
Variables".
+
+ - Dir Variable Separators: Variables in paths no longer require a trailing
directory
+ separator. Both of these are live Hyperbole paths:
"${hyperb:dir}DEMO#Smart Mouse Keys"
"${hyperb:dir}/DEMO#Smart Mouse Keys"
@@ -61,7 +63,7 @@
- Implicit Button Types: Split off type descriptions to this new
subsection and added these types: ripgrep-msg, ipython-stack-frame,
ilink (link to implicit button), glink (link to global button), and
-ib elink (link to explicit button).
+ elink (link to explicit button).
- DEMO (Action Buttons): Added description and examples.
diff --git a/Makefile b/Makefile
index 971ff17..1d02daf 100644
--- a/Makefile
+++ b/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.6
+HYPB_VERSION = 7.0.7
# Emacs executable used to byte-compile .el files into .elc's.
# Possibilities include: emacs, infodock, etc.
@@ -174,7 +174,8 @@ ELC_COMPILE = hactypes.elc hibtypes.elc hib-debbugs.elc
hib-doc-id.elc hib-kbd.
hpath.elc hrmail.elc hsettings.elc hsmail.elc hsys-org.elc
hsys-www.elc htz.elc \
hycontrol.elc hui-jmenu.elc hui-menu.elc hui-mini.elc
hui-mouse.elc hui-select.elc \
hui-treemacs.elc hui-window.elc hui.elc hvar.elc hversion.elc
hvm.elc hypb.elc hyperbole.elc \
- hyrolo-demo.elc hyrolo-logic.elc hyrolo-menu.elc hyrolo.elc
hywconfig.elc set.elc
+ hyrolo-demo.elc hyrolo-logic.elc hyrolo-menu.elc hyrolo.elc
hywconfig.elc \
+ set.elc kprop-em.elc
ELC_KOTL = kotl/kexport.elc kotl/kfile.elc kotl/kfill.elc kotl/kimport.elc
kotl/klabel.elc \
kotl/klink.elc kotl/kmenu.elc kotl/knode.elc kotl/kotl-mode.elc \
diff --git a/README.md b/README.md
index f33aa34..f0bdb90 100644
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
-# GNU Hyperbole 7.0.6 - The Everyday Hypertextual Information Manager
+# GNU Hyperbole 7.0.7 - The Everyday Hypertextual Information Manager
[Say thanks if you like Hyperbole.(https://saythanks.io/to/rswgnu)]
diff --git a/README.md.html b/README.md.html
index 6f61081..2f60fe4 100644
--- a/README.md.html
+++ b/README.md.html
@@ -1,5 +1,5 @@
<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>
+<a
id="user-content-gnu-hyperbole-707---the-everyday-hypertextual-information-manager"
class="anchor"
href="#gnu-hyperbole-707---the-everyday-hypertextual-information-manager"
aria-hidden="true"><span aria-hidden="true" class="octicon
octicon-link"></span></a>GNU Hyperbole 7.0.7 - 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>
diff --git a/hact.el b/hact.el
index c90f2d6..fd87af9 100644
--- a/hact.el
+++ b/hact.el
@@ -59,7 +59,7 @@ symbol or if SYMTABLE is invalid."
(setq def-name name
elisp-name (concat (symtable:name symtable) "::" name)
elisp-symbol (funcall intern-op elisp-name)))
- ;; Comment this out so can look for and try to remove symbols yet not
defined.
+ ;; Comment this out so can look for and try to remove symbols not yet
defined.
;; (unless elisp-symbol
;; (error "(symtable:operate): Use `%s' to create a new type named `%s'
before using `%s' on it"
;; (if (equal (plist-get symtable 'name) "actypes") "defact"
"defib")
@@ -216,7 +216,7 @@ Return the new function symbol derived from TYPE."
"Delete a Hyperbole TYPE derived from TYPE-CATEGORY (both symbols).
Return the Hyperbole symbol for the TYPE if it existed, else nil."
(let* ((sym (htype:symbol type type-category))
- (exists (fboundp 'sym)))
+ (exists (fboundp sym)))
(setplist sym nil)
(symtable:delete type (symtable:select type-category))
(symset:delete type type-category 'symbols)
@@ -246,8 +246,8 @@ When optional SYM is given, returns the name for that
symbol only, if any."
;;; ------------------------------------------------------------------------
(defun htype:symbol (type type-category)
- "Return Hyperbole type symbol composed from TYPE and TYPE-CATEGORY (both
symbols)."
- (symtable:get type (symtable:select type-category)))
+ "Return possibly new Hyperbole type symbol composed from TYPE and
TYPE-CATEGORY (both symbols)."
+ (intern (concat (symbol-name type-category) "::" (symbol-name type))))
;;; ========================================================================
;;; action class
@@ -373,9 +373,10 @@ Other paths are simply expanded. Non-path arguments are
returned unchanged."
(let ((loc (hattr:get 'hbut:current 'loc)))
(mapcar (lambda (arg)
(hpath:relative-to arg
- (if (stringp loc)
- loc
- (buffer-local-value 'default-directory
loc))))
+ (file-name-directory
+ (if (stringp loc)
+ loc
+ (buffer-local-value 'default-directory
loc)))))
args-list)))
@@ -429,7 +430,7 @@ performing ACTION."
actype
(symbol-name actype))))
(when (string-match "\\`actypes::" name)
- (make-symbol (substring sym-name (match-end 0))))))
+ (make-symbol (substring name (match-end 0))))))
(defun actype:eval (actype &rest args)
"Performs action formed from ACTYPE and rest of ARGS and returns value.
@@ -485,8 +486,9 @@ The type uses PARAMS to perform DEFAULT-ACTION (list of the
rest of the
arguments). A call to this function is syntactically the same as for
`defun', but a doc string is required.
Return symbol created when successful, else nil."
- (symtable:add type symtable:actypes)
- (list 'htype:create type 'actypes doc params default-action
`'(definition-name ,type)))
+ `(progn
+ (symtable:add ',type symtable:actypes)
+ (htype:create ,type actypes ,doc ,params ,default-action
'(definition-name ,type))))
(defalias 'defact 'actype:create)
(put 'actype:create 'lisp-indent-function 'defun)
diff --git a/hactypes.el b/hactypes.el
index a4b0fc8..1b66216 100644
--- a/hactypes.el
+++ b/hactypes.el
@@ -46,8 +46,16 @@ inserted, delete the completions window."
(delete-window))
(hargs:completion)))
+(defact display-boolean (bool-expr)
+ "Display a message showing the result value of a BOOL-EXPR.
+Return any non-nil value or t."
+ (let ((result (eval bool-expr)))
+ (message "Boolean result (%s) = %s" (if result "True" "False")
(prin1-to-string result))
+ (or result t)))
+
(defact display-variable (var)
- "Display a message showing `var` (a symbol) and its value."
+ "Display a message showing `var` (a symbol) and its value.
+Return any non-nil value or t."
(message "%s = %s" var (symbol-value var))
(or (symbol-value var) t))
diff --git a/hbut.el b/hbut.el
index be6280f..0a729b6 100644
--- a/hbut.el
+++ b/hbut.el
@@ -1490,11 +1490,19 @@ buttons of this type; most useful when TO-P is also
given.
Return symbol created when successful, else nil. Nil indicates that action
type for ibtype is presently undefined."
(when type
- (symtable:add type symtable:ibtypes)
(let ((to-func (when to-p (action:create nil (list to-p))))
(at-func (list at-p)))
- `(htype:create ,type ibtypes ,doc nil ,at-func
- (list 'to-p ,to-func 'style ,style)))))
+ `(progn (symtable:add ',type symtable:ibtypes)
+ (htype:create ,type ibtypes ,doc nil ,at-func
+ '(to-p ,to-func style ,style))))))
+
+(defun ibtype:def-symbol (ibtype)
+ "Return the abbreviated symbol for IBTYPE used in its `defib'; IBTYPE may be
a string or symbol."
+ (let ((name (if (stringp ibtype)
+ ibtype
+ (symbol-name ibtype))))
+ (when (string-match "\\`ibtypes::" name)
+ (make-symbol (substring name (match-end 0))))))
(defun ibtype:delete (type)
"Delete an implicit button TYPE (a symbol).
diff --git a/hib-social.el b/hib-social.el
index 1fd3bca..dd54c8a 100644
--- a/hib-social.el
+++ b/hib-social.el
@@ -585,10 +585,10 @@ PROJECT value is provided, it defaults to the value of
(setq reference (substring reference (match-end
0)))))))
(if (and (stringp user) (stringp project))
(funcall hibtypes-social-display-function
- (setq a (if reference
+ (if reference
(format url-to-format user project ref-type
reference)
- ;; Remove trailing /
- (substring (format url-to-format user project
"" "") 0 -1))))
+ ;; Remove trailing /
+ (substring (format url-to-format user project ""
"") 0 -1)))
(cond ((and (null user) (null project))
(error "(gitlab-reference): Set
`hibtypes-gitlab-default-user' and `hibtypes-gitlab-default-project'"))
((null user)
diff --git a/hibtypes.el b/hibtypes.el
index 5569415..af3e85a 100644
--- a/hibtypes.el
+++ b/hibtypes.el
@@ -1242,12 +1242,17 @@ arg1 ... argN '>'. For example, <mail user@mybiz.com>."
(ibut:label-set lbl start-pos end-pos)
(setq action (read (concat "(" lbl ")"))
args (cdr action))
- (when (and (null args) (symbolp actype) (boundp actype)
- (or var-flag (not (fboundp actype))))
- ;; Is a variable, display its value as the action
- (setq args `(',actype)
- action `(display-variable ',actype)
- actype 'display-variable))
+ (cond ((and (symbolp actype) (fboundp actype)
+ (string-match "-p\\'" (symbol-name actype)))
+ ;; Is a function with a boolean result
+ (setq action `(display-boolean ',action)
+ actype 'display-boolean))
+ ((and (null args) (symbolp actype) (boundp actype)
+ (or var-flag (not (fboundp actype))))
+ ;; Is a variable, display its value as the action
+ (setq args `(',actype)
+ action `(display-variable ',actype)
+ actype 'display-variable)))
;; Necessary so can return a null value, which actype:act cannot.
(let ((hrule:action (if (eq hrule:action #'actype:identity)
hrule:action
diff --git a/hmouse-drv.el b/hmouse-drv.el
index 3cdc15b..baecd4b 100644
--- a/hmouse-drv.el
+++ b/hmouse-drv.el
@@ -723,7 +723,8 @@ the given direction."
(_ (error "(hkey-buffer-move): Invalid movement direction, '%s'"
direction))))
(hkey-swap-buffers w1 (selected-window)))
;; ... but if not available, use the Emacs builtin windmove package.
- (require 'windmove)
+ (eval-and-compile
+ (require 'windmove))
(windmove-do-window-select direction arg)))
;;; ************************************************************************
@@ -841,7 +842,9 @@ Return non-nil iff associated help documentation is found."
calls)
(when (memq cmd-sym '(hui:hbut-act hui:hbut-help))
- (princ (format "BUTTON SPECIFICS:\n\n%s\n"
+ (princ (format "%s BUTTON SPECIFICS:\n\n%s\n"
+ (ibtype:def-symbol
+ (hattr:get 'hbut:current 'categ))
(actype:doc 'hbut:current t)))
(hattr:report
(nthcdr 2 (hattr:list 'hbut:current))))
diff --git a/hmouse-sh.el b/hmouse-sh.el
index 108ffb0..d230705 100644
--- a/hmouse-sh.el
+++ b/hmouse-sh.el
@@ -263,7 +263,7 @@ These may be the bindings prior to initializing Hyperbole
or the Hyperbole bindi
;; Do nothing when running in batch mode.
(unless noninteractive
(nconc
- (if hmouse-middle-flag (hmouse-get-unshifted-bindings))
+ (when hmouse-middle-flag (hmouse-get-unshifted-bindings))
;; Get mouse bindings under Emacs or XEmacs, even if not under a
;; window system since they can have frames on ttys and windowed
;; displays at the same time.
@@ -327,51 +327,51 @@ These may be the bindings prior to initializing Hyperbole
or the Hyperbole bindi
(cons key (global-key-binding key)))
'([(shift button2)] [(shift button2up)]
[(shift button3)] [(shift button3up)]))
- (if (boundp 'mode-line-map)
- (mapcar (lambda (key)
- (cons key (lookup-key mode-line-map key)))
- '([(shift button3)] [(shift button3up)])))))))
+ (when (boundp 'mode-line-map)
+ (mapcar (lambda (key)
+ (cons key (lookup-key mode-line-map key)))
+ '([(shift button3)] [(shift button3up)])))))))
(defun hmouse-get-unshifted-bindings ()
"Return the list of middle mouse key bindings prior to their use as Smart
Keys."
;; Do nothing when running in batch mode.
- (mapcar (lambda (key) (cons key (global-key-binding key)))
- (if (not (eq window-system 'dps))
- ;; X, macOS or MS Windows
- '([down-mouse-2] [drag-mouse-2] [mouse-2]
- [down-mouse-3] [drag-mouse-3] [mouse-3]
- [double-mouse-2] [triple-mouse-2]
- [double-mouse-3] [triple-mouse-3]
- [header-line down-mouse-2] [header-line drag-mouse-2]
- [header-line mouse-2]
- [left-fringe down-mouse-2] [left-fringe drag-mouse-2]
- [left-fringe mouse-2]
- [right-fringe down-mouse-2] [right-fringe drag-mouse-2]
- [right-fringe mouse-2]
- [vertical-line down-mouse-2] [vertical-line drag-mouse-2]
- [vertical-line mouse-2]
- [left-fringe down-mouse-3] [left-fringe drag-mouse-3]
- [left-fringe mouse-3]
- [right-fringe down-mouse-3] [right-fringe drag-mouse-3]
- [right-fringe mouse-3]
- [vertical-line down-mouse-3] [vertical-line drag-mouse-3]
- [vertical-line mouse-3]
- [mode-line down-mouse-2] [mode-line drag-mouse-2]
- [mode-line mouse-2]
- [mode-line down-mouse-3] [mode-line drag-mouse-3]
- [mode-line mouse-3]
- )))
+ (mapc (lambda (key) (cons key (global-key-binding key)))
+ (unless (eq window-system 'dps)
+ ;; X, macOS or MS Windows
+ '([down-mouse-2] [drag-mouse-2] [mouse-2]
+ [down-mouse-3] [drag-mouse-3] [mouse-3]
+ [double-mouse-2] [triple-mouse-2]
+ [double-mouse-3] [triple-mouse-3]
+ [header-line down-mouse-2] [header-line drag-mouse-2]
+ [header-line mouse-2]
+ [left-fringe down-mouse-2] [left-fringe drag-mouse-2]
+ [left-fringe mouse-2]
+ [right-fringe down-mouse-2] [right-fringe drag-mouse-2]
+ [right-fringe mouse-2]
+ [vertical-line down-mouse-2] [vertical-line drag-mouse-2]
+ [vertical-line mouse-2]
+ [left-fringe down-mouse-3] [left-fringe drag-mouse-3]
+ [left-fringe mouse-3]
+ [right-fringe down-mouse-3] [right-fringe drag-mouse-3]
+ [right-fringe mouse-3]
+ [vertical-line down-mouse-3] [vertical-line drag-mouse-3]
+ [vertical-line mouse-3]
+ [mode-line down-mouse-2] [mode-line drag-mouse-2]
+ [mode-line mouse-2]
+ [mode-line down-mouse-3] [mode-line drag-mouse-3]
+ [mode-line mouse-3]
+ )))
(nconc
(mapcar (lambda (key)
(cons key (global-key-binding key)))
'([button2] [button2up]
[button3] [button3up]
))
- (if (boundp 'mode-line-map)
- (mapcar (function
- (lambda (key)
- (cons key (lookup-key mode-line-map key))))
- '([button3] [button3up])))
+ (when (boundp 'mode-line-map)
+ (mapcar (function
+ (lambda (key)
+ (cons key (lookup-key mode-line-map key))))
+ '([button3] [button3up])))
))
;; Based on a function from Emacs mouse.el.
@@ -382,11 +382,11 @@ Select the corresponding window as well."
(progn (if (not (windowp (frame-selected-window (posn-window position))))
(error "Position not in text area of window"))
(select-window (frame-selected-window (posn-window position))))
- (if (not (windowp (posn-window position)))
- (error "Position not in text area of window"))
+ (unless (windowp (posn-window position))
+ (error "Position not in text area of window"))
(select-window (posn-window position)))
- (if (numberp (posn-point position))
- (goto-char (posn-point position))))
+ (when (numberp (posn-point position))
+ (goto-char (posn-point position))))
;; Based on a function from Emacs mouse.el.
(defun hmouse-move-point-emacs (event &optional promote-to-region)
@@ -398,10 +398,10 @@ point determined by
`mouse-select-region-move-to-beginning'."
(interactive "e\np")
(let ((start-w-or-f (posn-window (event-start event)))
(end-w-or-f (posn-window (event-end event))))
- (if (framep start-w-or-f)
- (with-selected-frame start-w-or-f (setq start-w-or-f
(selected-window))))
- (if (framep end-w-or-f)
- (with-selected-frame end-w-or-f (setq end-w-or-f (selected-window))))
+ (when (framep start-w-or-f)
+ (with-selected-frame start-w-or-f (setq start-w-or-f (selected-window))))
+ (when (framep end-w-or-f)
+ (with-selected-frame end-w-or-f (setq end-w-or-f (selected-window))))
(if (and (window-minibuffer-p start-w-or-f)
(not (minibuffer-window-active-p start-w-or-f)))
;; Select the ending frame only, not the window pressed within.
@@ -438,10 +438,10 @@ point determined by
`mouse-select-region-move-to-beginning'."
(unless noninteractive
(or hmouse-bindings-flag hmouse-previous-bindings
(setq hmouse-previous-bindings (hmouse-get-bindings
hmouse-middle-flag)))
- (if hmouse-middle-flag (hmouse-unshifted-setup hmouse-middle-flag))
+ (when hmouse-middle-flag (hmouse-unshifted-setup hmouse-middle-flag))
;; Ensure Gillespie's Info mouse support is off since
;; Hyperbole handles that.
- (if (boundp 'Info-mouse-support) (setq Info-mouse-support nil))
+ (when (boundp 'Info-mouse-support) (setq Info-mouse-support nil))
;;
;; This event setting from the "kmacro.el" library can
;; trigger an autoload that binds [S-mouse-3] to 'kmacro-end-call-mouse,
diff --git a/hmouse-tag.el b/hmouse-tag.el
index 9bfca06..86cdc50 100644
--- a/hmouse-tag.el
+++ b/hmouse-tag.el
@@ -47,13 +47,13 @@
;;; Public variables
;;; ************************************************************************
+(define-obsolete-variable-alias 'smart-asm-include-dirs
+ 'smart-asm-include-path "06.00")
(defcustom smart-asm-include-path nil
"*Ordered list of directories to search for assembly language include files.
Each directory must end with a directory separator."
:type '(repeat directory)
:group 'hyperbole-commands)
-(define-obsolete-variable-alias 'smart-asm-include-dirs
- 'smart-asm-include-path "06.00")
(defconst smart-asm-include-regexp
"[ \t*#|;]*\\(include\\|lib\\)[ \t]+\\([^ \t\n\r]+\\)"
@@ -66,15 +66,17 @@ Examples include:
lib conditionals_equ.inc
should include \"conditionals_equ.inc\"")
+(define-obsolete-variable-alias 'smart-c-cpp-include-dirs
+ 'smart-c-cpp-include-path "06.00")
(defcustom smart-c-cpp-include-path '("/usr/include/")
"*Ordered list of include directories by default searched by C/C++
preprocessor.
Each directory must end with a directory separator. See also
'smart-c-include-path'."
:type '(repeat directory)
:group 'hyperbole-commands)
-(define-obsolete-variable-alias 'smart-c-cpp-include-dirs
- 'smart-c-cpp-include-path "06.00")
+(define-obsolete-variable-alias 'smart-c-include-dirs
+ 'smart-c-include-path "06.00")
(defcustom smart-c-include-path nil
"*Ordered list of directories to search for C/C++ include files.
Each directory must end with a directory separator. Directories normally
@@ -82,8 +84,6 @@ searched by the C/C++ pre-processor should be set instead in
`smart-c-cpp-include-path'."
:type '(repeat directory)
:group 'hyperbole-commands)
-(define-obsolete-variable-alias 'smart-c-include-dirs
- 'smart-c-include-path "06.00")
(defcustom smart-c-use-lib-man nil
"When non-nil makes `smart-c' and `smart-c++' display man pages for
recognized library symbols.
diff --git a/hui.el b/hui.el
index 9a9637f..6fc4f7d 100644
--- a/hui.el
+++ b/hui.el
@@ -597,7 +597,7 @@ See also documentation for `hui:link-possible-types'."
item (match-end 0)))
item))
type-and-args
- (documentation (htype:actype-p type))))
+ (documentation (symtable:actype-p type))))
link-types)))
type-and-args (hui:list-remove-text-properties
type-and-args))
(hui:link-create
diff --git a/hversion.el b/hversion.el
index ce1c42c..c699daa 100644
--- a/hversion.el
+++ b/hversion.el
@@ -23,7 +23,7 @@
;;; Public variables
;;; ************************************************************************
-(defconst hyperb:version "7.0.6" "GNU Hyperbole revision number.")
+(defconst hyperb:version "7.0.7" "GNU Hyperbole revision number.")
;;;###autoload
(defvar hyperb:microsoft-os-p
diff --git a/hyperbole-banner.png b/hyperbole-banner.png
index d3d9610..f0d8abd 100644
Binary files a/hyperbole-banner.png and b/hyperbole-banner.png differ
diff --git a/hyperbole.el b/hyperbole.el
index 12dcd25..1b705e0 100644
--- a/hyperbole.el
+++ b/hyperbole.el
@@ -6,7 +6,7 @@
;; Maintainer: Bob Weiner <rsw@gnu.org>, Mats Lidell <matsl@gnu.org>
;; Created: 06-Oct-92 at 11:52:51
;; Released: 27-Aug-19
-;; Version: 7.0.6
+;; Version: 7.0.7
;; Keywords: comm, convenience, files, frames, hypermedia, languages,
mail, matching, mouse, multimedia, outlines, tools, wp
;; Package: hyperbole
;; Package-Requires: ((emacs "24.4"))
diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index 96f0cc6..0adb30f 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -2554,7 +2554,6 @@ With optional prefix ARG, toggle display of blank lines
between cells."
(kvspec:levels-to-show 1)
(kvspec:show-lines-per-cell 1)
(if arg (kvspec:toggle-blank-lines))
- (kvspec:activate)
;; Restore buffer modification status
(set-buffer-modified-p modified-p)))
diff --git a/man/hyperbole.html b/man/hyperbole.html
index aa99b3e..a317a46 100644
--- a/man/hyperbole.html
+++ b/man/hyperbole.html
@@ -1,7 +1,7 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd";>
<html>
<!-- This manual is for GNU Hyperbole
-(Edition 7.0.6, Published September 17, 2019).
+(Edition 7.0.7, Published October 2, 2019).
Copyright (C) 1989-2019 Free Software Foundation, Inc.
@@ -348,8 +348,8 @@ WITHOUT ANY WARRANTY, without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.</P>
<PRE>
-Edition 7.0.6
-Printed September 17, 2019.
+Edition 7.0.7
+Printed October 2, 2019.
Published by the Free Software Foundation, Inc.
Author: Bob Weiner
@@ -806,7 +806,7 @@ Next: <a href="#Smart-Keys" accesskey="n" rel="next">Smart
Keys</a>, Previous: <
<h2 class="chapter">1 Introduction</h2>
<p>This edition of the GNU Hyperbole Manual is for use with any version
-7.0.6 or greater of GNU Hyperbole. Hyperbole runs atop GNU Emacs 24.3
+7.0.7 or greater of GNU Hyperbole. Hyperbole runs atop GNU Emacs 24.3
or higher. It will trigger an error if your Emacs is older.
</p>
<p>This chapter summarizes the structure of the rest of the manual,
@@ -3083,10 +3083,15 @@ Lisp function name rather than an action type name, e.g.
<pre class="example"><find-file-other-window "/tmp">
</pre></div>
+<p>Generally, such functions are invoked for their side-effects and their
+return value is silently ignored. But if a function is a boolean
+predicate whose name ends in ‘<samp>-p</samp>’, then the result is
displayed
+in the minibuffer.
+</p>
</dd>
<dt><em>variable displays</em></dt>
-<dd><p>These consist of only an Emacs Lisp variable name and display a
-message with the variable name and value, e.g.
+<dd><p>These consist of an Emacs Lisp variable name only. They display
+messages with their variable name and value, e.g.
</p>
<div class="example">
<pre class="example"><fill-column>
diff --git a/man/hyperbole.info b/man/hyperbole.info
index 0d5dddf..259325e 100644
Binary files a/man/hyperbole.info and b/man/hyperbole.info differ
diff --git a/man/hyperbole.pdf b/man/hyperbole.pdf
index 0199344..5c6c6c1 100644
Binary files a/man/hyperbole.pdf and b/man/hyperbole.pdf differ
diff --git a/man/hyperbole.texi b/man/hyperbole.texi
index cb6f3a7..5ab9738 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.6
-Printed September 17, 2019.
+Edition 7.0.7
+Printed October 2, 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.6
-September 17, 2019
+Edition 7.0.7
+October 2, 2019
Published by the Free Software Foundation, Inc.
Author: Bob Weiner
@@ -474,7 +474,7 @@ Smart Keyboard Keys
@chapter Introduction
This edition of the GNU Hyperbole Manual is for use with any version
-7.0.6 or greater of GNU Hyperbole. Hyperbole runs atop GNU Emacs 24.3
+7.0.7 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,
@@ -2448,9 +2448,14 @@ Lisp function name rather than an action type name, e.g.
<find-file-other-window "/tmp">
@end example
+Generally, such functions are invoked for their side-effects and their
+return value is silently ignored. But if a function is a boolean
+predicate whose name ends in @samp{-p}, then the result is displayed
+in the minibuffer.
+
@item variable displays
-These consist of only an Emacs Lisp variable name and display a
-message with the variable name and value, e.g.
+These consist of an Emacs Lisp variable name only. They display
+messages with their variable name and value, e.g.
@example
<fill-column>
diff --git a/man/version.texi b/man/version.texi
index 7710013..9f61a84 100644
--- a/man/version.texi
+++ b/man/version.texi
@@ -1,4 +1,4 @@
-@set UPDATED September 17, 2019
-@set UPDATED-MONTH September 2019
-@set EDITION 7.0.6
-@set VERSION 7.0.6
+@set UPDATED October 2, 2019
+@set UPDATED-MONTH October 2019
+@set EDITION 7.0.7
+@set VERSION 7.0.7
- [elpa] externals/hyperbole updated (62a9db3 -> 7184b30), Stefan Monnier, 2020/07/12
- [elpa] externals/hyperbole e654a6d 02/51: Fail packaging when proper version number is missing, Stefan Monnier, 2020/07/12
- [elpa] externals/hyperbole 55a8009 05/51: Fail packaging when proper version number is missing, Stefan Monnier, 2020/07/12
- [elpa] externals/hyperbole 88e8aab 06/51: 7.0.8 test release: XML markup tag selection; global button renaming, Stefan Monnier, 2020/07/12
- [elpa] externals/hyperbole 62f3fd2 01/51: 7.0.7 test release: many changes, new logo; fixed def macros,
Stefan Monnier <=
- [elpa] externals/hyperbole 7aa8e62 03/51: Merge pull request #20 from rswgnu/make-make-release-fail-on-wrong-version-number, Stefan Monnier, 2020/07/12
- [elpa] externals/hyperbole cac90b5 10/51: Merge branch 'master' of github.com:rswgnu/hyperbole, Stefan Monnier, 2020/07/12
- [elpa] externals/hyperbole 0f8c29e 07/51: Merge branch 'master' of github.com:rswgnu/hyperbole, Stefan Monnier, 2020/07/12
- [elpa] externals/hyperbole d087a82 11/51: Fixes for 7.0.8 test release, Stefan Monnier, 2020/07/12
- [elpa] externals/hyperbole fc7c511 15/51: Merge branch 'master' of hyperbole, Stefan Monnier, 2020/07/12
- [elpa] externals/hyperbole 4f0a651 16/51: hproperty:but-flash-time - revert value from 0.05 back to 1000, Stefan Monnier, 2020/07/12
- [elpa] externals/hyperbole c30a718 18/51: Fix out-of-date imenu index after buffer changes, Stefan Monnier, 2020/07/12
- [elpa] externals/hyperbole 766ac22 04/51: Large commit of RSW changes, Stefan Monnier, 2020/07/12
- [elpa] externals/hyperbole 9e2b4ba 08/51: hui-select.el - remove require of kotl-mode; caused cyclical loads, Stefan Monnier, 2020/07/12
- [elpa] externals/hyperbole 8e6ea41 12/51: Fix ibut handling in programming modes; add button links to glossary, Stefan Monnier, 2020/07/12