Function: cconv--interactive-helper

cconv--interactive-helper is a byte-compiled function defined in oclosure.el.gz.

Signature

(cconv--interactive-helper FUN IF)

Documentation

Add interactive "form" IF to FUN.

Returns a new command that otherwise behaves like FUN. IF can be a Lisp form to be interpreted or a function of no arguments.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/oclosure.el.gz
(defun cconv--interactive-helper (fun if)
  "Add interactive \"form\" IF to FUN.
Returns a new command that otherwise behaves like FUN.
IF can be a Lisp form to be interpreted or a function of no arguments."
  (oclosure-lambda (cconv--interactive-helper (fun fun) (if if))
      (&rest args)
    (apply (if (called-interactively-p 'any)
               #'funcall-interactively #'funcall)
           fun args)))