Variable: hargs:iform-extensions-vector

hargs:iform-extensions-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 nil nil nil nil nil nil nil
     #[514
       "\302\303\"\216\304\305\306!\210	\203�	\307\232\203$�\3101!�\311 0\210\202$�\210\307\312!)\207"
       [hargs:reading-type Info-current-file-completions make-closure
			   #[0 "\300\211\207"
			       [V0 hargs:reading-type] 2]
			   Info-node require info (("None")) (error)
			   Info-build-node-completions
			   Info-read-node-name]
       6
       ("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc" . 5654)]
     nil
     #[514 "\301\302\"\216\303\304\305\305\303%)\207"
	   [hargs:reading-type make-closure
			       #[0 "\300\211\207"
				   [V0 hargs:reading-type] 2]
			       kcell hargs:read nil]
	   9
	   ("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
	    . 5654)]
     #[514 "\301\302\"\216\303\304\305\305\303%)\207"
	   [hargs:reading-type make-closure
			       #[0 "\300\211\207"
				   [V0 hargs:reading-type] 2]
			       klink hargs:read nil]
	   9
	   ("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
	    . 5654)]
     #[514
       "\301\302\"\216\303\304\305\306\307#\"\211\262<\203-�G\310U\203-�A@;\203-�\311A@!\2043�\312 \210\202�)\207"
       [hargs:reading-type make-closure
			   #[0 "\300\211\207"
			       [V0 hargs:reading-type] 2]
			   mail read-minibuffer hargs:prompt ""
			   "list of (date mail-file)" 2 file-exists-p
			   beep]
       8
       ("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc" . 5654)]
     nil nil nil nil nil nil nil nil
     #[514 "\301\302\"\216\303\304\305\211\211\303%)\207"
	   [hargs:reading-type make-closure
			       #[0 "\300\211\207"
				   [V0 hargs:reading-type] 2]
			       kvspec hargs:read nil]
	   9
	   ("/root/.emacs.d/elpa/hyperbole-20260414.325/hargs.elc"
	    . 5654)]
     nil
     #[514
       "\301\302\"\216\303\304\211\305\306!\210\307!\262\310\311\"\203�\211\202/�\312 \211\262\203.�\313\314#\202/�\211)\207"
       [hargs:reading-type make-closure
			   #[0 "\300\211\207"
			       [V0 hargs:reading-type] 2]
			   Info-index-item nil require info
			   Info-read-index-item-name string-match
			   "^(\\([^)]+\\))\\(.*\\)"
			   Info-current-filename-sans-extension format
			   "(%s)%s"]
       9
       ("/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-extensions-vector
  (hargs:make-iform-vector
   ;; Get existing Info node name, possibly prefixed with its (filename).
   (?I . (Info-node . (progn (require 'info)
			     ;; Prevent empty completions list from
			     ;; triggering an error in Info-read-node-name.
			     (unless (and Info-current-file-completions
					  (not (equal Info-current-file-completions '(("None")))))
			       (condition-case nil
				   (Info-build-node-completions)
				 (error (setq Info-current-file-completions '(("None"))))))
			     (Info-read-node-name prompt))))

   ;; Get kcell from some koutline.
   (?K . (kcell . (hargs:read prompt nil default nil 'kcell)))
   ;; Get kcell or path reference for use in a link.
   (?L . (klink . (hargs:read prompt nil default nil 'klink)))
   ;; Get existing mail msg date and file.
   (?M . (mail . (progn
		   (while
		       (or (not (listp
				 (setq default
				       (read-minibuffer
					(hargs:prompt
					 prompt ""
					 "list of (date mail-file)")
					default))))
			   (/= (length default) 2)
			   (not (and (stringp (car (cdr default)))
				     (file-exists-p
				      (car (cdr default))))))
		     (beep))
		   default)))
   ;; Get a Koutline viewspec.
   (?V . (kvspec . (hargs:read prompt nil nil nil 'kvspec)))
   ;; Get existing Info index item name, possibly prefixed with its (filename).
   (?X . (Info-index-item . (let (file item)
			      (require 'info)
			      (setq item (Info-read-index-item-name prompt))
			      (if (string-match "^(\\([^\)]+\\))\\(.*\\)" item)
                                  item
                                (if (setq file (Info-current-filename-sans-extension))
                                    (format "(%s)%s" file item)
                                  item))))))
  "Vector of forms for each interactive command character code.")