Lines Matching +defs:load +defs:history
119 ;; load the package by M-x `load-file' RET. Specify the package file
134 ;; sure that directory is included in the `load-path'.
830 (defcustom table-load-hook nil
929 ;;; The following history containers not only keep the history of user
932 ;;; of the history as a default selection. Therefore the values below
934 ;;; first time when there is no real history existing yet.
935 (defvar table-cell-span-direction-history '("right"))
936 (defvar table-cell-split-orientation-history '("horizontally"))
937 (defvar table-cell-split-contents-to-history '("split"))
938 (defvar table-insert-row-column-history '("row"))
939 (defvar table-justify-history '("center"))
940 (defvar table-columns-history '("3"))
941 (defvar table-rows-history '("3"))
942 (defvar table-cell-width-history '("5"))
943 (defvar table-cell-height-history '("1"))
944 (defvar table-source-caption-history '("Table"))
945 (defvar table-sequence-string-history '("0"))
946 (defvar table-sequence-count-history '("0"))
947 (defvar table-sequence-increment-history '("1"))
948 (defvar table-sequence-interval-history '("1"))
949 (defvar table-sequence-justify-history '("left"))
950 (defvar table-source-language-history '("html"))
951 (defvar table-col-delim-regexp-history '(""))
952 (defvar table-row-delim-regexp-history '(""))
953 (defvar table-capture-justify-history '("left"))
954 (defvar table-capture-min-cell-width-history '("5"))
955 (defvar table-capture-columns-history '(""))
956 (defvar table-target-history '("cell"))
1631 '(("Number of columns" . table-columns-history)
1632 ("Number of rows" . table-rows-history)
1633 ("Cell width(s)" . table-cell-width-history)
1634 ("Cell height(s)" . table-cell-height-history)))))
1637 (if (null cell-width) (setq cell-width (car table-cell-width-history)))
1638 (if (null cell-height) (setq cell-height (car table-cell-height-history)))
1898 (default (car table-insert-row-column-history)))
1906 nil t nil 'table-insert-row-column-history default))))
2605 (default-direction (if (member (list (car table-cell-span-direction-history)) direction-list)
2606 (car table-cell-span-direction-history)
2612 nil t nil 'table-cell-span-direction-history default-direction))))))
2770 (default (car table-cell-split-contents-to-history)))
2780 nil t nil 'table-cell-split-contents-to-history default)))))))
2848 (default (car table-cell-split-orientation-history)))
2852 nil t nil 'table-cell-split-orientation-history default))))))
2868 (default (car table-target-history)))
2872 nil t nil 'table-target-history default))))
3020 (default (car table-source-language-history))
3025 nil t nil 'table-source-language-history default))))
3029 (table--read-from-minibuffer '("Table Caption" . table-source-caption-history)))))
3423 "Sequence base string: " (car table-sequence-string-history) nil nil 'table-sequence-string-history)
3426 '("How many elements (0: maximum, negative: backward traveling)" . table-sequence-count-history)))
3429 '("Increment element by" . table-sequence-increment-history)))
3432 '("Cell interval (0: vertical, 1:horizontal)" . table-sequence-interval-history)))
3434 (default (car table-sequence-justify-history)))
3438 nil t nil 'table-sequence-justify-history default)))))))
3728 (car table-col-delim-regexp-history) nil nil 'table-col-delim-regexp-history))
3731 (car table-row-delim-regexp-history) nil nil 'table-row-delim-regexp-history))
3733 (default (car table-capture-justify-history)))
3739 nil t nil 'table-capture-justify-history default)))))
3741 (table--read-from-minibuffer '("Minimum cell width" . table-capture-min-cell-width-history)))
3744 (table--read-from-minibuffer '("Number of columns" . 'table-capture-columns-history)))
4341 (defun table--read-from-minibuffer (prompt-history)
4344 cdr is the history symbol."
4345 (let ((default (car (symbol-value (cdr prompt-history)))))
4347 (format "%s (default %s): " (car prompt-history) default)
4348 "" nil nil (cdr prompt-history) default))
4350 (equal (car (symbol-value (cdr prompt-history))) "")
4351 (set (cdr prompt-history)
4352 (cdr (symbol-value (cdr prompt-history)))))
4353 (car (symbol-value (cdr prompt-history))))
4420 (default (car table-justify-history)))
4424 nil t nil 'table-justify-history default)))))
5607 (run-hooks 'table-load-hook)