Function: hui:ebut-message

hui:ebut-message is a byte-compiled function defined in hui.el.

Signature

(hui:ebut-message BUT-EDIT-FLAG)

Documentation

Display message about the ebut execution.

With BUT-EDIT-FLAG non-nil message about ebut being edited.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20261030.2317/hui.el
(defun hui:ebut-message (but-edit-flag)
  "Display message about the ebut execution.
With BUT-EDIT-FLAG non-nil message about ebut being edited."
  (let ((actype (hattr:get 'hbut:current 'actype))
	(args (hattr:get 'hbut:current 'args)))
    (setq actype (or (actype:def-symbol (actype:elisp-symbol actype))
                     ;; This line prevents an Elisp function actype
                     ;; registering as nil
                     (actype:elisp-symbol actype)))
    (message "%s%s%s %s %S"
	     ebut:label-start
	     (hbut:key-to-label (hattr:get 'hbut:current 'lbl-key))
	     ebut:label-end
	     (if but-edit-flag "now executes" "executes")
	     (cons actype args))))