Lines Matching +defs:default +defs:map
186 ;; of this variable. Its default value is `warn' which will print a warning
190 ;; Look at the documentation of `ad-default-compilation-action' for possible
191 ;; values of this variable. Its default value is `maybe' which will compile
271 ;; `first' will be used as a default. If this call to `defadvice' redefines
556 ;; argument as t, or, if `ad-default-compilation-action' justifies it according
699 ;; Automatic advice activation is enabled by default. It can be disabled by
1089 ;; `first' (or 0) is the default):
1649 ;; "Increment X by INCR (default is 1)."
1853 (defcustom ad-default-compilation-action 'maybe
2140 ;; compiled depends on the value of `ad-default-compilation-action'.
2202 (defun ad-read-advised-function (&optional prompt predicate default)
2210 (setq default
2211 (or default
2221 (format "%s (default %s): " (or prompt "Function") default)
2232 (if (ad-is-advised default)
2233 default
2234 (error "ad-read-advised-function: `%s' is not advised" default))
2241 (defun ad-read-advice-class (function &optional prompt default)
2246 (setq default
2247 (or default
2253 (format "%s (default %s): " (or prompt "Class") default)
2256 default
2266 (default
2271 (prompt (format "%s (default %s): " (or prompt "Name") default))
2274 (intern default)
2286 ;; Use previous regexp as a default:
2294 (format " (default %s): " ad-last-regexp))))))
2477 setq setq-default unwind-protect while
2921 (defun ad-map-arglists (source-arglist target-arglist)
2922 "Make `funcall/apply' form to map SOURCE-ARGLIST to TARGET-ARGLIST.
2928 Example: `(ad-map-arglists '(a &rest args) '(w x y z))' will return
2961 (let ((mapped-form (ad-map-arglists source-arglist target-arglist)))
3003 will be interpreted as `default'. The order of the advice documentation
3507 `ad-default-compilation-action' (which see)."
3512 (cond ((eq ad-default-compilation-action 'never)
3514 ((eq ad-default-compilation-action 'always)
3516 ((eq ad-default-compilation-action 'like-original)
3601 on the value of `ad-default-compilation-action' (which see).