Function: hui:ibut-message

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

Signature

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

Documentation

Display message about the ibut execution.

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

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20261030.2317/hui.el
(defun hui:ibut-message (but-edit-flag)
  "Display message about the ibut execution.
With BUT-EDIT-FLAG non-nil message about ibut 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"
	     ibut:label-start
             (or (hattr:get 'hbut:current 'name)
                 (hbut:key-to-label (hattr:get 'hbut:current 'lbl-key)))
	     ibut:label-end
	     (if but-edit-flag "now executes" "executes")
	     (cons actype args))))