[elpa] externals/hyperbole c99bb63364 2/5: hui-em-but.el: Shorten docs strings to be within 80 char limit. (#254)

[ELPA Syncer]

branch: externals/hyperbole
commit c99bb633644b170f1bdb8951b5ccddcc8309b423
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    hui-em-but.el: Shorten docs strings to be within 80 char limit. (#254)
---
 ChangeLog     |  1 +
 hui-em-but.el | 10 ++++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d047ae2567..927f6c4c2b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,6 @@
 2022-08-14  Mats Lidell  <matsl@gnu.org>
 
+* hui-em-but.el:
 * hsys-youtube.el: Shorten docs strings to be within 80 char limit.
 
 * hload-path.el (hload-path--make-directory-autoloads): Use
diff --git a/hui-em-but.el b/hui-em-but.el
index 638eb2da93..068d7f388d 100644
--- a/hui-em-but.el
+++ b/hui-em-but.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    21-Aug-92
-;; Last-Mod:     14-Jun-22 at 21:22:39 by Mats Lidell
+;; Last-Mod:      2-Aug-22 at 19:31:16 by Mats Lidell
 ;;
 ;; Copyright (C) 1992-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -228,7 +228,9 @@ highlighted."
 ;;; ************************************************************************
 
 (defun hproperty:cycle-but-color (&optional color)
-  "Switch button color to optional COLOR name or next item referenced by 
hproperty:color-ptr."
+  "Switch button color.
+Set color to optional COLOR name or next item referenced by
+hproperty:color-ptr."
   (interactive "sHyperbole button color: ")
   (when (display-color-p)
     (when color (setq hproperty:color-ptr nil))
@@ -269,7 +271,7 @@ highlighted."
     (and ibut (not prev) (hproperty:but-delete start))))
 
 (defun hproperty:select-item (&optional pnt)
-  "Select item in current buffer at optional position PNT using 
hproperty:item-face."
+  "Select item in current buffer at optional position PNT with 
hproperty:item-face."
   (when pnt (goto-char pnt))
   (skip-chars-forward " \t")
   (skip-chars-backward "^ \t\n\r")
@@ -280,7 +282,7 @@ highlighted."
   (sit-for 0))  ;; Force display update
 
 (defun hproperty:select-line (&optional pnt)
-  "Select line in current buffer at optional position PNT using 
hproperty:item-face."
+  "Select line in current buffer at optional position PNT with 
hproperty:item-face."
   (when pnt (goto-char pnt))
   (save-excursion
     (beginning-of-line)