Lines Matching defs:auto
41 ;; TODO The user should be able to define *auto-modes* prior to the
44 ;; *auto-modes* is a list of conses where every car is compiled
56 (defvar *auto-modes* '(
68 "Autotools" "auto" . *auto-mode*)
93 ;; Compile the regexps in the *auto-modes* list.
95 (dolist (mode *auto-modes*)
104 (defun auto-mode (filename &optional symbol &aux syntax)
107 (return-from auto-mode (symbol-value symbol))
108 (setq syntax (cddr (find symbol *auto-modes* :key #'cdddr)))
113 (mode *auto-modes* (cdr mode))
128 (return-from auto-mode (symbol-value symbol))
503 (defun auto-fill (&optional (value nil specified))
505 (format *output* "~Cset-auto-fill ~S~%"
507 (format *output* "~Cget-auto-fill~%" *escape*)))