diff --git a/Changes b/Changes index 0f2bdafe..4e60f08c 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,51 @@ +2019-10-01 Bob Weiner + +* 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 + +* Makefile (ELC_COMPILE): Added missing kprop-em.elc. + +2019-09-23 Bob Weiner + +* 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 + +* 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 + +* 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 + +* 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 * 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 76fa4711..f2939fa2 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 4f0c6b73..6b93a7fe 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 @@ link-to-gbut 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: - "[#]:[:]" + - Pathname References: Pathname implicit buttons may contain both link anchors + and line and column numbers. Format is: + "[#]:[:]" - - 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 971ff176..1d02daf5 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 f33aa347..f0bdb90d 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 6f610811..2f60fe49 100644 --- a/README.md.html +++ b/README.md.html @@ -1,5 +1,5 @@

-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)]

Table of Contents

diff --git a/hact.el b/hact.el index c90f2d61..fd87af9b 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 a4b0fc8a..1b66216c 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 be6280fc..0a729b68 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 1fd3bca8..dd54c8a3 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 5569415e..af3e85af 100644 --- a/hibtypes.el +++ b/hibtypes.el @@ -1242,12 +1242,17 @@ arg1 ... argN '>'. For example, ." (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 3cdc15be..baecd4b3 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 108ffb07..d2307055 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 9bfca06a..86cdc50e 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 9a9637f6..6fc4f7d1 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 ce1c42cb..c699daab 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 d3d96108..f0d8abd5 100644 Binary files a/hyperbole-banner.png and b/hyperbole-banner.png differ diff --git a/hyperbole.el b/hyperbole.el index 12dcd251..1b705e02 100644 --- a/hyperbole.el +++ b/hyperbole.el @@ -6,7 +6,7 @@ ;; Maintainer: Bob Weiner , Mats Lidell ;; 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 96f0cc61..0adb30f0 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 aa99b3e9..a317a465 100644 --- a/man/hyperbole.html +++ b/man/hyperbole.html @@ -1,7 +1,7 @@