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 "\n\n(fn PROMPT DEFAULT)"]
#[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 "\n\n(fn PROMPT DEFAULT)"]
#[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 "\n\n(fn PROMPT DEFAULT)"]
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 "\n\n(fn PROMPT DEFAULT)"]
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 "\n\n(fn PROMPT DEFAULT)"]
nil nil
#[514 "\302\303\"\216\304 \203�\305 !\202'�\306\307\"\211\262\250\204$�\310 \210\202�\211\262)\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 "\n\n(fn PROMPT DEFAULT)"]
nil
#[514 "\302\303\"\216\301 )\207"
[hargs:reading-type prefix-arg make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type]
2]]
6 "\n\n(fn PROMPT DEFAULT)"]
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 "\n\n(fn PROMPT DEFAULT)"]
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 "\n\n(fn PROMPT DEFAULT)"]
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 "\n\n(fn PROMPT DEFAULT)"]
#[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 "\n\n(fn PROMPT DEFAULT)"]
#[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 "\n\n(fn PROMPT DEFAULT)"]
#[514 "\301\302\"\216\303`)\207"
[hargs:reading-type make-closure
#[0 "\300\211\207"
[V0 hargs:reading-type]
2]
integer]
6 "\n\n(fn PROMPT DEFAULT)"]
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 "\n\n(fn PROMPT DEFAULT)"]
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 "\n\n(fn PROMPT DEFAULT)"]
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 "\n\n(fn PROMPT DEFAULT)"]
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 "\n\n(fn PROMPT DEFAULT)"]
#[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 "\n\n(fn PROMPT DEFAULT)"]
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 "\n\n(fn PROMPT DEFAULT)"]
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 "\n\n(fn PROMPT DEFAULT)"]
#[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 "\n\n(fn PROMPT DEFAULT)"]
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 "\n\n(fn PROMPT DEFAULT)"]
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 "\n\n(fn PROMPT DEFAULT)"]]
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.")