Variable: hargs:iform-vector
hargs:iform-vector is a variable defined in hargs.el.
Value
Large value
[nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
nil
#[514
"\301\302\"\216\303\204�\304p!\262\305\306#)\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
buffer other-buffer read-buffer nil]
7
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc" . 5654)]
#[514 "\302\303\"\216\304\305\306 \307\310%!)\207"
[hargs:reading-type obarray make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
symbol intern completing-read commandp
t]
10
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
. 5654)]
#[514
"\302\303\"\216\304\204� \262\305\211\306$)\207"
[hargs:reading-type default-directory make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
directory read-directory-name t]
8
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc" . 5654)]
nil
#[514 "\301\302\"\216\303\304\211\305$)\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
file read-file-name nil]
8
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
. 5654)]
nil nil nil nil
#[514
"\301\302\"\216\303\304\305\203�\306\307#\202�\310\311#!)\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
key key-description read-key-sequence
hargs:prompt "Curr:" nil t]
9
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc" . 5654)]
nil nil
#[514
"\302\303\"\216\304 \203�\305 !\202$�\306\307\"\211\262\250\204$�\310 \210\202�)\207"
[hargs:reading-type prefix-arg make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
integer prefix-numeric-value nil
read-minibuffer beep]
7
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc" . 5654)]
nil
#[514 "\302\303\"\216\301 )\207"
[hargs:reading-type prefix-arg make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]]
6
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
. 5654)]
nil nil
#[514 "\302\303\"\216\304\305 \306$)\207"
[hargs:reading-type minibuffer-local-ns-map make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
symbol read-from-minibuffer sym]
8
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
. 5654)]
nil nil nil nil
#[514 "\301\302\"\216\303\304\")\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
sexpression eval-minibuffer]
6
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
. 5654)]
nil nil nil nil nil nil nil nil
#[514 "\302\303\"\216\304\305\306 \307\310%!)\207"
[hargs:reading-type obarray make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
symbol intern completing-read fboundp t]
10
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
. 5654)]
#[514
"\301\302\"\216\303\204�\304p!\262\305\306#)\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
buffer other-buffer read-buffer t]
7
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc" . 5654)]
#[514
"\301\302\"\216\303\304\203 �\305\250\203�\306!\202�\307#\202!�!\210\306\310 !)\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
character message hargs:prompt
char-to-string "Curr:" read-char]
8
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc" . 5654)]
#[514 "\301\302\"\216\303`)\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
integer]
6
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
. 5654)]
nil
#[514
"\302\303\"\216\304\305\211 \306=?\205�\307$)\207"
[hargs:reading-type system-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
file read-file-name vax-vms existing]
9
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc" . 5654)]
nil nil
#[514 "\301\302\"\216\303)\303\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
nil]
6
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
. 5654)]
nil
#[514
"\301\302\"\216\303\304\305\203�\306\307#\202�!!)\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
key key-description read-key-sequence
hargs:prompt "Curr:"]
9
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc" . 5654)]
nil
#[514 "\301\302\"\216\303\304\305 !)\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
integer marker-position mark-marker]
6
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
. 5654)]
#[514
"\301\302\"\216\303\304\305\"\211\262\250\204�\306 \210\202 �)\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
integer nil read-minibuffer beep]
7
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc" . 5654)]
nil
#[514 "\302\303\"\216\301\304 !)\207"
[hargs:reading-type prefix-arg make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
prefix-numeric-value]
6
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
. 5654)]
nil
#[514
"\301\302\"\216\303\304\305 !\203 �\306`\307\310!^`\307\310!]E\202\"�\306\311\211E)\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
region marker-position mark-marker args
mark t nil]
8
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc" . 5654)]
#[514 "\301\302\"\216\303\304\")\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
string read-string]
6
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
. 5654)]
nil nil
#[514
"\301\302\"\216\303\304\203�\305\306#\202�!)\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
symbol read-variable hargs:prompt "Curr:"]
8
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc" . 5654)]
nil
#[514 "\301\302\"\216\303\304\")\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type] 2]
sexpression read-minibuffer]
6
("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
. 5654)]]
Documentation
Vector of forms for each interactive command character code.
Source Code
;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hargs.el
(defconst hargs:iform-vector
(hargs:make-iform-vector
;; Get function symbol.
(?a . (symbol .
(intern (completing-read prompt obarray #'fboundp t default))))
;; Get name of existing buffer.
(?b . (buffer .
(progn
(or default (setq default (other-buffer (current-buffer))))
(read-buffer prompt default t))))
;; Get name of possibly nonexistent buffer.
(?B . (buffer .
(progn
(or default (setq default (other-buffer (current-buffer))))
(read-buffer prompt default nil))))
;; Get character.
(?c . (character .
(progn (message
(if default
(hargs:prompt prompt
(if (integerp default)
(char-to-string default)
default)
"Curr:")
prompt))
(char-to-string (read-char)))))
;; Get symbol for interactive function, a command.
(?C . (symbol .
(intern
(completing-read prompt obarray #'commandp t default))))
;; Get value of point; does not do I/O.
(?d . (integer . (point)))
;; Get directory name.
(?D . (directory .
(progn
(or default (setq default default-directory))
(read-directory-name prompt default default t))))
;; Get existing file name.
(?f . (file .
(read-file-name prompt default default
(if (eq system-type 'vax-vms)
nil 'existing))))
;; Get possibly nonexistent file name.
(?F . (file . (read-file-name prompt default default nil)))
;; Ignore this argument
(?i . nil)
;; Get key sequence.
(?k . (key .
(key-description (read-key-sequence
(if default
(hargs:prompt prompt default "Curr:")
prompt)))))
;; Get key sequence without converting uppercase or shifted
;; function keys to their unshifted equivalents.
(?K . (key .
(key-description (read-key-sequence
(if default
(hargs:prompt prompt default "Curr:")
prompt)
nil t))))
;; Get value of mark. Does not do I/O.
(?m . (integer . (marker-position (mark-marker))))
;; Get numeric prefix argument or a number from the minibuffer.
(?N . (integer .
(if prefix-arg
(prefix-numeric-value prefix-arg)
(let ((arg))
(while (not (integerp
(setq arg (read-minibuffer prompt default))))
(beep))
arg))))
;; Get number from minibuffer.
(?n . (integer .
(let ((arg))
(while (not (integerp
(setq arg (read-minibuffer prompt default))))
(beep))
arg)))
;; Get numeric prefix argument. No I/O.
(?p . (prefix-arg .
(prefix-numeric-value prefix-arg)))
;; Get prefix argument in raw form. No I/O.
(?P . (prefix-arg . prefix-arg))
;; Get region, point and mark as 2 args. No I/O
(?r . (region .
(if (marker-position (mark-marker))
(list 'args (min (point) (mark t))
(max (point) (mark t)))
(list 'args nil nil))))
;; Get string.
(?s . (string . (read-string prompt default)))
;; Get symbol.
(?S . (symbol .
(read-from-minibuffer
prompt default minibuffer-local-ns-map 'sym)))
;; Get variable name: symbol that is user-variable-p.
(?v . (symbol . (read-variable
(if default
(hargs:prompt prompt default "Curr:")
prompt))))
;; Get Lisp expression but don't evaluate.
(?x . (sexpression . (read-minibuffer prompt default)))
;; Get Lisp expression and evaluate.
(?X . (sexpression . (eval-minibuffer prompt default))))
"Vector of forms for each interactive command character code.")