Searched refs:setf (Results 26 - 50 of 82) sorted by relevance

1234

/macosx-10.9.5/emacs-92/emacs/lisp/emacs-lisp/
H A Dcl-specs.el99 (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 Dcl.el56 ;; * 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 Derc-backend.el875 (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 Dmh-seq.el549 (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 Dmh-speed.el205 (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 Dmh-search.el275 (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 Dmh-junk.el311 (setf (gethash (car host) domains) (1+ (if (not value) 0 value)))
H A Dmh-show.el197 (setf (mh-buffer-data) (mh-make-buffer-data)))
237 (setf (mh-buffer-data) (mh-make-buffer-data))
H A Dmh-mime.el75 ;; 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 Dmh-utils.el419 (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 Dmh-xface.el252 (setf (gethash canonical-address mh-picon-cache)
/macosx-10.9.5/swig-10/Source/Modules/
H A Doctave.cxx711 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 Dpython.cxx2411 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 Druby.cxx2107 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 Durl-http.el574 (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 Dallegrocl.swg71 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 Drmail-spam-filter.el238 (setf (rest result) t)
240 (setf (first result) nil)))))
/macosx-10.9.5/swig-10/Lib/cffi/
H A Dcffi.swg154 when (cl:listp value) do (cl:setf index (cl:second value)
/macosx-10.9.5/emacs-92/emacs/lisp/gnus/
H A Dmml-sec.el118 (setf (second style-item) style)
H A Dgnus-agent.el339 (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 Dnnml.el863 (setf (car active) (1+ (cdr active)))
866 (setf (car active) num)))))))
/macosx-10.9.5/vim-53/runtime/syntax/
H A Dterminfo.vim65 \ scp setb setf smgl smglp smgr smgrp hts smgt
H A Dia64.vim206 "setf
207 syn match ia64opcode "setf\.\(s\|d\|exp\|sig\)\>"
/macosx-10.9.5/emacs-92/emacs/lisp/play/
H A Dgamegrid.el278 (setf l (nconc l (list (aref vect n)))))
/macosx-10.9.5/emacs-92/emacs/lisp/
H A Dibuf-ext.el696 (setf (cdr cell) (cons (car cell) (cdr cell)))
697 (setf (car cell) newgroup))))))

Completed in 152 milliseconds

1234