[elpa] externals/hyperbole 7184b30 51/51: Fix ibut:delete

[Stefan Monnier]

branch: externals/hyperbole
commit 7184b30b39f84e4be109a0cb9d05a75671bed693
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    Fix ibut:delete
---
 Changes                | 14 +++++++++++++-
 hbut.el                |  4 ++--
 kotl/kotl-autoloads.el | 12 +++++++++---
 3 files changed, 24 insertions(+), 6 deletions(-)

diff --git a/Changes b/Changes
index 1c27631..33fcf06 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,17 @@
 2020-07-08  Bob Weiner  <rsw@gnu.org>
 
+* hbut.el (hbut:delete, ibut:delete): Added.
+
+2020-07-08  Bob Weiner  <rsw@gnu.org>
+
+* hbut.el (gbut:to): Added to move to a global button file button.
+
+==============================================================================
+V7.1.3 changes ^^^^:
+==============================================================================
+
+2020-07-08  Bob Weiner  <rsw@gnu.org>
+
 * hversion.el: Released 7.1.2.
 
 * hmouse-sh.el (hmouse-drag-region): Added.
@@ -5103,7 +5115,7 @@ V5.10 changes ^^^^:
     and used in horizontal drag action; removed window-min-height setting.
                 (hmouse-vertical-assist-drag):
                 (hmouse-horizontal-assist): Renamed to 
hmouse-horizontal-assist-drag.
-               (hmouse-horizontal): Delted.
+               (hmouse-horizontal): Deleted.
 
 ==============================================================================
 V5.09 changes ^^^^:
diff --git a/hbut.el b/hbut.el
index 221b516..4a5fab6 100644
--- a/hbut.el
+++ b/hbut.el
@@ -1400,14 +1400,14 @@ Return symbol for button deleted or nil."
       (when (and start end)
        (save-excursion
          (set-buffer (if (bufferp loc) loc (find-file-noselect loc)))
-         (when (ibut:to but-key)
+         (when (ibut:to but-sym)
            (let (buffer-read-only)
              (if (< (point) start)
                  ;; Find beginning of button named label delimiter and delete
                  ;; from there.
                  (progn (goto-char (- (point) (length ibut:label-start)))
                         (delete-region (point) end))
-                 ;; No label, just delete delimited ibutton text.
+               ;; No label, just delete delimited ibutton text.
                (delete-region start end))
              (when (looking-at "[ \t]*\r?\n")
                (delete-region (point) (match-end 0)))
diff --git a/kotl/kotl-autoloads.el b/kotl/kotl-autoloads.el
index 797411e..9499b87 100644
--- a/kotl/kotl-autoloads.el
+++ b/kotl/kotl-autoloads.el
@@ -194,10 +194,14 @@ See documentation for `kcell:ref-to-id' for valid 
cell-ref formats.
 (autoload 'kotl-mode "kotl-mode" "\
 The major mode used to edit and view koutlines.
 It provides the following keys:
-\\{kotl-mode-map}" t nil)
+\\{kotl-mode-map}
+
+\(fn)" t nil)
 
 (autoload 'kotl-mode:example "kotl-mode" "\
-Display the Koutliner example file for demonstration use by a user." t nil)
+Display the Koutliner example file for demonstration use by a user.
+
+\(fn)" t nil)
 
 (autoload 'kotl-mode:overview "kotl-mode" "\
 Show the first line of each cell.
@@ -229,7 +233,9 @@ Display fully expanded tree rooted at CELL-REF.
 \(fn &optional CELL-REF)" t nil)
 
 (autoload 'kotl-mode:is-p "kotl-mode" "\
-Signal an error if current buffer is not a Hyperbole outline, else return t." 
nil nil)
+Signal an error if current buffer is not a Hyperbole outline, else return t.
+
+\(fn)" nil nil)
 
 (if (fboundp 'register-definition-prefixes) (register-definition-prefixes 
"kotl-mode" '("delete-selection-pre-hook" "kotl-mode" "yank-")))