/macosx-10.9.5/emacs-92/emacs/lisp/emacs-lisp/ |
H A D | cl-specs.el | 99 (def-edebug-spec setf (&rest [place form])) ;; sexp is not specific enough function 100 (def-edebug-spec psetf setf) 114 (def-edebug-spec define-setf-method 258 ("setf" :name setf name)]
|
H A D | cl.el | 56 ;; * Changed `(setf (nthcdr N PLACE) X)' to work when N is zero. 121 PLACE may be a symbol, or any generalized variable allowed by `setf'. 129 PLACE may be a symbol, or any generalized variable allowed by `setf'. 137 Analogous to (prog1 (car PLACE) (setf PLACE (cdr PLACE))), though more 139 PLACE may be a symbol, or any generalized variable allowed by `setf'." 146 Analogous to (setf PLACE (cons X PLACE)), though more careful about 148 be a symbol, or any generalized variable allowed by `setf'." 628 gensym gentemp typep cl-do-pop get-setf-method 629 cl-struct-setf-expander compiler-macroexpand cl-compile-time-init) 636 locally the declare define-setf [all...] |
/macosx-10.9.5/emacs-92/emacs/lisp/erc/ |
H A D | erc-backend.el | 875 (setf (erc-response.sender msg) 880 (setf (erc-response.command msg) 899 (setf (erc-response.contents msg) 902 (setf (erc-response.command-args msg) 924 (setf (erc-response.unparsed parsed-response) 928 (setf (erc-response.sender parsed-response) 932 (setf (erc-response.command parsed-response) 939 (setf (erc-response.command-args parsed-response) decoded-args) 940 (setf (erc-response.contents parsed-response) 1346 (setf (er [all...] |
/macosx-10.9.5/emacs-92/emacs/lisp/mh-e/ |
H A D | mh-seq.el | 549 (setf (gethash msg mh-thread-scan-line-map) 874 (setf (gethash msg mh-sequence-notation-history) 918 (setf (gethash msg deleted-hash) t)) 921 (setf (gethash msg refiled-hash) t))) 963 (setf (gethash msg mh-sequence-notation-history) 989 (setf (gethash msg mh-sequence-notation-history) (cdr stack))))))
|
H A D | mh-speed.el | 205 (setf (gethash nil mh-speed-folder-map) 373 (setf (gethash folder-name mh-speed-folder-map) 469 (setf (gethash folder mh-speed-flists-cache) (cons unseen total))
|
H A D | mh-search.el | 275 (setf (gethash (car next-result) folder-results-map) 277 (setf (gethash (cadr next-result) 296 (setf (gethash result-count origin-map) 1596 do (setf (gethash folder seq-hash) 1765 for x in data do (setf (gethash x table) t) 1782 do (setf (gethash (car pair) table) (funcall proc (cdr pair))) 1930 (setf (gethash msg mh-index-msg-checksum-map) checksum) 1932 (setf (gethash checksum mh-index-checksum-origin-map)
|
H A D | mh-junk.el | 311 (setf (gethash (car host) domains) (1+ (if (not value) 0 value)))
|
H A D | mh-show.el | 197 (setf (mh-buffer-data) (mh-make-buffer-data))) 237 (setf (mh-buffer-data) (mh-make-buffer-data))
|
H A D | mh-mime.el | 75 ;; This has to be a macro, since we do: (setf (mh-buffer-data) ...) 465 (setf (gethash handle (mh-mime-handles-cache (mh-buffer-data))) 470 (setf (mh-mime-handles (mh-buffer-data)) 537 (setf (mh-mime-handles (mh-buffer-data)) 764 (setf (gethash handle (mh-mime-part-index-hash (mh-buffer-data)))
|
H A D | mh-utils.el | 419 (setf (gethash parent mh-sub-folders-cache) 424 do (progn (setf (cdr x) t) (return))))))) 556 (setf (gethash folder mh-sub-folders-cache)
|
H A D | mh-xface.el | 252 (setf (gethash canonical-address mh-picon-cache)
|
/macosx-10.9.5/swig-10/Source/Modules/ |
H A D | octave.cxx | 711 Wrapper *setf = NewWrapper(); local 716 Printf(setf->def, "static octave_value_list _wrap_%s(const octave_value_list& args,int nargout) {", setname); 717 Printf(setf->def, "if (!SWIG_check_num_args(\"%s_set\",args.length(),1,1,0)) return octave_value_list();", iname); 727 emit_action_code(n, setf->code, tm); 732 Append(setf->code, "fail:\n"); 733 Printf(setf->code, "return octave_value_list();\n"); 735 Printf(setf->code, "return octave_set_immutable(args,nargout);"); 737 Append(setf->code, "}\n"); 738 Wrapper_print(setf, f_wrappers);
|
H A D | python.cxx | 2411 Wrapper *getf, *setf; local 2417 setf = NewWrapper(); 2445 Printf(setf->def, "SWIGINTERN int %s(PyObject *_val) {", varsetname); 2453 emit_action_code(n, setf->code, tm); 2458 Printv(setf->code, " return 0;\n", NULL); 2459 Append(setf->code, "fail:\n"); 2460 Printv(setf->code, " return 1;\n", NULL); 2464 Printf(setf->def, "SWIGINTERN int %s(PyObject *) {", varsetname); 2466 Printf(setf->def, "SWIGINTERN int %s(PyObject *_val SWIGUNUSED) {", varsetname); 2468 Printv(setf [all...] |
H A D | ruby.cxx | 2107 Wrapper *getf, *setf; local 2110 setf = NewWrapper(); 2152 Printv(setf->def, "SWIGINTERN VALUE\n", setfname, "(VALUE self, ", NIL); 2153 Printf(setf->def, "VALUE _val) {"); 2159 /* Printv(setf->code,tm,"\n",NIL); */ 2160 emit_action_code(n, setf->code, tm); 2164 Printv(setf->code, tab4, "return _val;\n", NIL); 2165 Printf(setf->code, "fail:\n"); 2166 Printv(setf->code, tab4, "return Qnil;\n", NIL); 2167 Printf(setf [all...] |
/macosx-10.9.5/emacs-92/emacs/lisp/url/ |
H A D | url-http.el | 574 (setf (car url-callback-arguments) 591 (setf (car url-callback-arguments) 721 (setf (car url-callback-arguments) 776 (setf (car url-callback-arguments) 1191 (setf (car url-callback-arguments)
|
/macosx-10.9.5/swig-10/Lib/allegrocl/ |
H A D | allegrocl.swg | 71 and error if a setf operation is performed on the address of this object. 369 `(cl::setf ,(identifier-convert-null 378 (cl::setf char (cl::schar cname n)) 381 (cl::setf newcase (cl::if (cl::upper-case-p char) :upper :lower)) 386 (cl::setf newcase :other)) 388 (cl::setf lastcase newcase) 391 (cl::setf lastcase :other))) 398 `(cl::setf ,(identifier-convert-lispify 402 (cl::setf cname (cl::format nil "*~A*" cname))) 432 ;; setf function [all...] |
/macosx-10.9.5/emacs-92/emacs/lisp/mail/ |
H A D | rmail-spam-filter.el | 238 (setf (rest result) t) 240 (setf (first result) nil)))))
|
/macosx-10.9.5/swig-10/Lib/cffi/ |
H A D | cffi.swg | 154 when (cl:listp value) do (cl:setf index (cl:second value)
|
/macosx-10.9.5/emacs-92/emacs/lisp/gnus/ |
H A D | mml-sec.el | 118 (setf (second style-item) style)
|
H A D | gnus-agent.el | 339 (setf (func LIST) NEW_VALUE1): Replaces VALUE1 with NEW_VALUE1." 344 (define-setf-method ,name (category) 390 (define-setf-method gnus-agent-cat-groups (category) 424 (setf (gnus-agent-cat-groups old-category) 806 (setf (gnus-agent-cat-groups c) 809 (setf (gnus-agent-cat-groups cat) 820 (setf (gnus-agent-cat-groups c) 2710 ;; Avoid run-time execution of setf form 2711 ;; (setf (gnus-agent-cat-predicate (assq ',category gnus-category-alist)) 2728 ;; Avoid run-time execution of setf for [all...] |
H A D | nnml.el | 863 (setf (car active) (1+ (cdr active))) 866 (setf (car active) num)))))))
|
/macosx-10.9.5/vim-53/runtime/syntax/ |
H A D | terminfo.vim | 65 \ scp setb setf smgl smglp smgr smgrp hts smgt
|
H A D | ia64.vim | 206 "setf 207 syn match ia64opcode "setf\.\(s\|d\|exp\|sig\)\>"
|
/macosx-10.9.5/emacs-92/emacs/lisp/play/ |
H A D | gamegrid.el | 278 (setf l (nconc l (list (aref vect n)))))
|
/macosx-10.9.5/emacs-92/emacs/lisp/ |
H A D | ibuf-ext.el | 696 (setf (cdr cell) (cons (car cell) (cdr cell))) 697 (setf (car cell) newgroup))))))
|