summaryrefslogtreecommitdiff
path: root/hywconfig.el
diff options
context:
space:
mode:
authorBob Weiner <rsw@gnu.org>2017-11-15 15:22:30 -0500
committerBob Weiner <rsw@gnu.org>2017-11-15 15:22:30 -0500
commit2be4dd014ea12b63bcb4b9dc8d32a2f43d425459 (patch)
treeef0892026244f37249c25b2d58abec7dbf49ace7 /hywconfig.el
parent152e2be48e5bbd8da20193a28ff88f4e62fe80df (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.el10
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."))))