diff options
| author | Bob Weiner <rsw@gnu.org> | 2017-11-15 15:22:30 -0500 |
|---|---|---|
| committer | Bob Weiner <rsw@gnu.org> | 2017-11-15 15:22:30 -0500 |
| commit | 2be4dd014ea12b63bcb4b9dc8d32a2f43d425459 (patch) | |
| tree | ef0892026244f37249c25b2d58abec7dbf49ace7 /hywconfig.el | |
| parent | 152e2be48e5bbd8da20193a28ff88f4e62fe80df (diff) | |
Fixed a bunch of small issues and released Hyperbole 7.
* hversion.el: Updated to 7.0.0 for major release.
* hui-window.el (hmouse-drag-window-side): Fixed coordinate error when drag release is outside of Emacs.
* hui-mouse.el (smart-helm-assist): Fixed message formatting bugs in hkey-debug message.
* hlvar.el (hack-local-variables): Changed from use of older inhibit-local-variables variable to newer
(inhibit-local-variables-p) function call.
* Makefile (version): Removed HY-ANNOUNCE-SHORT from distribution.
* kotl/kexport.el (kexport:html): Changed to wrap cell contents in <PRE></PRE> tags if soft-newline-flag is nil
rather than using <BR> hard newlines, so all cell formatting is preserved. Also changed NAME attribute to
ID for HTML5.
2017-11-14 Bob Weiner <rsw@gnu.org>
* kotl/kimport.el (kimport:star-heading): Added and replaced use of hard-coded regexps in star outline importation.
Also, stopped allowing leading whitespace before outline heading stars so can use indented stars as list items
rather than outline headings.
* hibtypes.el (text-toc): Expanded file names to include DEMO and TUTORIAL.
DEMO: Added Table of Contents and a section on using it, Table of Contents Browsing.
* hbut.el (ebut:label-p): Changed last parameter to limit search to two lines rather than one, so Info node matches can
span two lines as they often do.
* HY-ABOUT: Added link to HY-WHY.kotl.
HY-WHY.kotl: Added links to relevant DEMO sections throughout.
DEMO (Koutliner): Updated this section.
hui-menu.el (infodock-hyperbole-menu): Added Why-Use? entry.
hui-mini.el (hui:menus): Added WhyUse entry to display HY-WHY.kotl, list of Hyperbole use cases.
man/hyperbole.css (code, tt): Removed leading and trailing padding of 5px from code samples so display inline better.
Diffstat (limited to 'hywconfig.el')
| -rw-r--r-- | hywconfig.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/hywconfig.el b/hywconfig.el index b05f710..271ed4b 100644 --- a/hywconfig.el +++ b/hywconfig.el @@ -82,13 +82,13 @@ NAME, confirms whether or not to replace it." (error "(hywconfig-add-by-name): `name' argument is not a string: %s" name)) (let ((set:equal-op (lambda (key elt) (equal key (car elt)))) (wconfig-names (hywconfig-get-names))) - (if (or (not (called-interactively-p)) + (if (or (not (called-interactively-p 'interactive)) (not (set:member name wconfig-names)) (y-or-n-p (format "Replace existing `%s' window configuration: " name))) (progn (hywconfig-set-names (set:replace name (current-window-configuration) wconfig-names)) - (if (called-interactively-p) + (if (called-interactively-p 'interactive) (message (substitute-command-keys (format "Window configuration `%s' saved. Use {\\[hywconfig-restore-by-name]} to restore." name)))))))) @@ -104,7 +104,7 @@ NAME, confirms whether or not to replace it." (error "(hywconfig-delete-by-name): `name' argument is not a string: %s" name)) (t (let ((set:equal-op (lambda (key elt) (equal key (car elt))))) (hywconfig-set-names (set:remove name (hywconfig-get-names))) - (if (called-interactively-p) + (if (called-interactively-p 'interactive) (message "Window configuration `%s' has been deleted." name)))))) ;;;###autoload @@ -119,7 +119,7 @@ NAME, confirms whether or not to replace it." (t (let ((wconfig (set:get name (hywconfig-get-names)))) (if wconfig (progn (hywconfig-set-window-configuration wconfig) - (if (called-interactively-p) + (if (called-interactively-p 'interactive) (message "Window configuration `%s' is now active." name))) (error "(hywconfig-restore-by-name): No window configuration for this frame named `%s'" name)))))) @@ -148,7 +148,7 @@ Then deletes this new configuration from the ring." Use {\\[hywconfig-yank-pop]} to restore it at a later time." (interactive) (ring-insert (hywconfig-get-ring) (current-window-configuration)) - (if (called-interactively-p) + (if (called-interactively-p 'interactive) (message (substitute-command-keys "Window configuration saved. Use {\\[hywconfig-yank-pop]} to restore.")))) |
