Lines Matching +defs:mode +defs:function
61 ;;; This kludge allows macros which use cl-transform-function-property
66 (or (fboundp 'cl-transform-function-property)
67 (defalias 'cl-transform-function-property
68 (function (lambda (n p f)
70 (list 'function (cons 'lambda f)))))))
93 (if (and (consp x) (not (memq (car x) '(quote function function*))))
111 (or (not (and (consp x) (not (memq (car x) '(quote function function*)))))
124 (and (memq (car x) '(function function*))
149 ((and (consp x) (not (memq (car-safe x) '(quote function function*))))
190 "Define NAME as a function.
209 (defmacro function* (func)
210 "Introduce a function.
211 Like normal `function', except that if argument is a lambda form,
215 (form (list 'function (cons 'lambda (cdr res)))))
217 (list 'function func)))
219 (defun cl-transform-function-property (func prop form)
223 (list 'function (cons 'lambda (cdr res))))))))
481 (symbol-function 'byte-compile-file-form)))
505 (function
543 (function
785 '(quote function
786 function*))
1199 (mapcar (function (lambda (c)
1205 (function
1257 (list 'function (list* 'lambda (list (car spec)) body))
1292 "Make temporary function definitions.
1293 This is an analogue of `let' that operates on the function cell of FUNC
1295 function definitions in place, then the definitions are undone (the FUNCs
1301 (function
1304 (eq (car-safe (symbol-function (car x))) 'macro))
1307 (let ((func (list 'function*
1311 (boundp 'byte-compile-function-environment))
1313 byte-compile-function-environment))
1314 (list (list 'symbol-function (list 'quote (car x))) func))))
1319 "Make temporary function bindings.
1331 (push (list 'function* (cons 'lambda (cdar bindings))) sets)
1380 (vars (mapcar (function
1391 (nconc (mapcar (function (lambda (x)
1398 (list 'let (mapcar (function (lambda (x)
1400 (sublis (mapcar (function (lambda (x)
1405 (list 'let (mapcar (function (lambda (x)
1411 (mapcar (function
1431 (list 'function (cons 'lambda rest)))
1448 (mapcar (function
1469 (mapcar (function
1560 (list (cl-transform-function-property
1568 the form (setf (NAME ARGS...) VAL) are transformed to function or macro
1664 (defsetf symbol-function fset)
1694 (defsetf current-input-mode () (store)
1695 (list 'progn (list 'apply 'set-input-mode store) store))
1781 (or (and (memq (car-safe func) '(quote function function*))
1783 (error "First arg to apply in setf is not (function SYM): %s" func))
1866 (symbolp (symbol-function (car place))))
1867 (get-setf-method (cons (symbol-function (car place))
1903 (not (eq (car-safe (symbol-function (car form))) 'macro))))
2041 (bound (and (memq (car place) '(symbol-value symbol-function))
2095 FUNC should be an unquoted function name. PLACE may be a symbol,
2104 (list* 'funcall (list 'function func)
2120 (list* 'funcall (list 'function func)
2168 (mapcar (function (lambda (x) (if (consp x) x (list x))))
2192 include-descs (mapcar (function
2196 ((eq opt :print-function)
2209 (list 'funcall (list 'function print-func)
2329 (make (mapcar* (function (lambda (s d) (if (memq s anames) s d)))
2339 (list 'function
2353 (mapcar (function (lambda (x)
2389 (cl-transform-function-property
2422 (mapcar (function (lambda (x) (cl-make-type-test val x)))
2457 (function
2482 BODY should do the same thing as a call to the normal function called
2486 original function call alone by declaring an initial `&whole foo' parameter
2492 (cl-transform-function-property
2506 (or (not (eq (car-safe (symbol-function func)) 'autoload))
2507 (load (nth 1 (symbol-function func)))))
2508 (setq func (symbol-function func)))
2519 "Define NAME as a function.
2520 Like `defun', except the function is automatically declared `inline',
2545 (mapcar* (function