| /dports/x11-wm/sawfish/sawfish_1.13.0/lisp/sawfish/wm/ext/ |
| H A D | window-history.jl | 156 (define (window-history-set w alist)
161 (table-set window-history-state class alist)
179 (cell (assq state alist)))
186 (window-history-set w alist))))
213 (not (window-get w 'client-set-position)))
245 (window-history-set w nil))
260 (let ((position (cdr (assq 'position alist))))
267 (space (or (cdr (assq 'workspace alist))
283 (let ((dims (cdr (assq 'dimensions alist))))
289 (let ((tem (cdr (assq sym alist))))
[all …]
|
| /dports/editors/apel/apel-4e3269b/ |
| H A D | calist.el | 37 (cdr (assq name calist-package-alist)))
280 (if (assq t (cdr ctree))
300 (let ((cell (assq t (cdr ctree))))
315 (set ctree-var
320 (set ctree-var
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/gnus/ |
| H A D | mm-util.el | 137 (let ((cs (cdr (assq charset mm-charset-override-alist))))
156 ((let* ((el (assq charset mm-charset-eval-alist))
169 ((let ((cs (cdr (assq charset mm-charset-synonym-alist))))
226 (setq pair (assq (caar val) defaults))
239 `(set :inline t :format "%v" ,@(nreverse rest))
300 (not (assq mime alist)))
415 (assq 'charset
421 (or (car (last (assq mail-parse-charset
466 ((not (setq item (assq (char-charset (setq c (char-after)))
583 (setq charset (car (last (assq 'charset
[all …]
|
| H A D | gnus-cus.el | 416 (while (setq elem (assq (caar tmp) (cdr tmp)))
424 (list `(set :inline t
434 `(set :inline t
961 (let* ((entry (assq parameter gnus-agent-parameters))
964 (nth 1 (assq ',parameter gnus-agent-parameters))))
996 symb (set (make-local-variable ',field) val))
1005 (let ((info (assq category gnus-category-alist))
1032 (let* ((info (assq gnus-agent-cat-name gnus-category-alist))
1067 (set
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/ |
| H A D | face-remap.el | 130 (let ((entry (assq face face-remapping-alist)))
145 (let ((remapping (assq (car cookie) face-remapping-alist)))
164 (let ((entry (assq face face-remapping-alist)))
199 (let ((entry (assq face face-remapping-alist)))
277 (eq operation 'set)
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/ffi/examples/ |
| H A D | sndfile.rkt | 134 (cond [(assq sym majors) =>
138 (set! major (cadr x))))]
139 [(assq sym subtypes) =>
144 [(assq sym endians) =>
211 (begin (set-sndfile-info! sf info) sf)
249 (define (set-meta-strings sndfile meta)
251 (let ([found (assq st meta)])
306 (cond [(number? d) (ptr-set! cblock type i d) (set! i (add1 i))]
342 [format (cond [(assq 'format meta) => cadr]
344 [samplerate (cond [(assq 'samplerate meta) => cadr]
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/ |
| H A D | font-lock.el | 720 (if (setq cell (assq mode font-lock-keywords-alist))
721 (if (eq how 'set)
746 (if (eq how 'set)
768 (let ((cell (assq mode font-lock-removed-keywords-alist)))
770 (if (eq how 'set)
819 (let ((top-cell (assq mode font-lock-keywords-alist)))
836 (not (eq (cdr (car (cdr cell))) 'set)))
845 (let ((cell (assq mode font-lock-removed-keywords-alist)))
1853 (cdr (or (assq major-mode values) (assq t values)))
1901 (local (cdr (assq major-mode font-lock-keywords-alist)))
[all …]
|
| H A D | desktop.el | 801 (let* ((special (assq minor-mode desktop-minor-mode-table))
817 (let ((here (assq local loclist)))
851 (special (assq nil pass1)))
864 (special (assq nil pass1)))
884 (if (assq nil newlist)
1438 (cdr (assq 'buffer-file-coding-system
1503 (funcall (or (cdr (assq desktop-buffer-major-mode
1541 (let ((handler (cdr (assq minor-mode desktop-minor-mode-handlers))))
1570 (set (car this) (cdr this)))
1590 (deser-fun (nth 2 (assq var desktop-var-serdes-funs))))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/srfi-lib/srfi/64/ |
| H A D | testing.rkt | 185 (set! result #t))
311 (source-file (assq 'source-file line-info))
312 (source-line (assq 'source-line line-info))
377 (test-name (assq 'test-name results)))
390 (let ((p (assq pname (test-result-alist runner))))
400 (test-name (assq 'test-name results)))
448 (p (assq pname alist)))
506 (test-result-set! r 'result-kind
660 (set! i (add1 i))
678 (set! result #f))
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/gnus/ |
| H A D | mm-util.el | 141 (let ((cs (cdr (assq charset mm-charset-override-alist))))
160 ((let* ((el (assq charset mm-charset-eval-alist))
173 ((let ((cs (cdr (assq charset mm-charset-synonym-alist))))
230 (setq pair (assq (caar val) defaults))
243 `(set :inline t :format "%v" ,@(nreverse rest))
366 (not (assq mime alist)))
480 (assq 'charset
486 (or (car (last (assq mail-parse-charset
531 ((not (setq item (assq (char-charset (setq c (char-after)))
648 (setq charset (car (last (assq 'charset
[all …]
|
| /dports/print/lilypond-devel/lilypond-2.23.5/input/regression/ |
| H A D | scheme-text-spanner.ly | 20 (set! meta-entry (assoc-set! meta-entry 'classes (list class))))
21 (set! meta-entry (assoc-set! meta-entry 'name grob-name))
22 (set! meta-entry (assoc-set! meta-entry 'interfaces
24 (set! grob-entry (assoc-set! grob-entry 'meta meta-entry))
68 #(set!
73 (cdr (assq 'description (cdr x))))
75 (set! lst (assoc-set! lst 'name (car x)))
76 (set! lst (assq-remove! lst 'description))
81 #(set! music-descriptions
84 #(set! music-descriptions
[all …]
|
| /dports/print/lilypond/lilypond-2.22.1/input/regression/ |
| H A D | scheme-text-spanner.ly | 28 (set! meta-entry (assoc-set! meta-entry 'name grob-name))
29 (set! meta-entry (assoc-set! meta-entry 'interfaces
31 (set! grob-entry (assoc-set! grob-entry 'meta meta-entry))
32 (set! all-grob-descriptions
75 #(set!
80 (cdr (assq 'description (cdr x))))
82 (set! lst (assoc-set! lst 'name (car x)))
83 (set! lst (assq-remove! lst 'description))
88 #(set! music-descriptions
91 #(set! music-descriptions
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/mzscheme/ |
| H A D | main.rkt | 26 assq assv assoc reverse)
68 hash-ref hash-set! hash-set
86 (rename hash-set! hash-table-put!)
104 assq assv assoc reverse memq memv member
|
| /dports/lang/librep/librep_0.92.7/lisp/rep/data/ |
| H A D | trie.jl | 47 (cdr (assq key (cdr node))))
49 (define (node-set! node key v)
50 (let ((cell (assq key (cdr node))))
71 (node-set! tree key new)
|
| /dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/typecheck/tc-app/ |
| H A D | tc-app-objects.rkt | 24 (define-literal-set object-literals #:for-label (list cons))
56 #:declare sf (id-from 'set-field!/proc 'racket/private/class-internal)
57 (check-set-field #'field #'obj #'val))
59 #:declare sf (id-from 'set-field!/proc 'racket/private/class-internal)
60 (int-err "unexpected arguments to set-field!/proc")))
117 (cond [(assq init-name name-assoc) => cadr]
139 (cond [(assq field-sym fields) =>
154 ;; check-set-field : Syntax Syntax Syntax -> TCResult
155 ;; type-check the `set-field!` operation on objects
156 (define (check-set-field field obj val)
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/emacs-lisp/ |
| H A D | pcase.el | 185 (let ((x (assq '\` more)))
392 (let ((prev (assq case seen)))
414 (let ((vi (assq (car v) allvarinfo)))
423 `(,v ,(cadr (assq v vars))
432 (unless (or (assq case seen)
519 (decl (assq 'declare body)))
784 (let ((set (cadr (nth 2 (cadr upat)))))
785 (if (member (cadr pat) set)
845 (when (assq arg env)
862 (let* ((found (assq exp vars)))
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/erc/ |
| H A D | erc-track.el | 240 (set sym val)
553 (set sym val)
555 (set sym val))))
727 (delete (assq buffer erc-modified-channels-alist)
811 (if (not (assq (current-buffer) erc-modified-channels-alist))
821 (let* ((cell (assq (current-buffer)
834 (assq (current-buffer) erc-modified-channels-alist))
|
| /dports/lang/racket/racket-8.3/collects/racket/ |
| H A D | cmdline.rkt | 329 [once-spec-set
333 (lambda (line) (cons set line))
348 ;; be set.
417 (when (or (assq 'multi table) (assq 'final table))
419 (when (assq 'once-any table)
421 (when (or (assq 'multi table) (assq 'final table) (assq 'once-any table))
439 (once-spec-set (cdr spec))]
511 (set! finalled? #t))
513 (let ([set (caar table)])
514 (if (mcar set)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/ |
| H A D | cmdline.rkt | 329 [once-spec-set
333 (lambda (line) (cons set line))
348 ;; be set.
417 (when (or (assq 'multi table) (assq 'final table))
419 (when (assq 'once-any table)
421 (when (or (assq 'multi table) (assq 'final table) (assq 'once-any table))
439 (once-spec-set (cdr spec))]
511 (set! finalled? #t))
513 (let ([set (caar table)])
514 (if (mcar set)
[all …]
|
| /dports/math/ess/ess-18.10.2/lisp/obsolete/ |
| H A D | msdos.el | 150 (set (make-local-variable 'comint-completion-addsuffix) '("\\" . " "))
161 (or (assq 'msdos-minor-mode minor-mode-alist)
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/emacs/ |
| H A D | d-mode.el | 209 (cdr (assq 'c-mode font-lock-defaults-alist)))))
264 (set (make-local-variable 'add-log-current-defun-function)
266 (set (make-local-variable 'imenu-extract-index-name-function)
273 (set (make-local-variable 'beginning-of-defun-function)
276 (set (make-local-variable 'font-lock-defaults)
278 (set (make-local-variable 'compile-command)
286 (null (assq 'd-mode font-lock-defaults-alist)))
|
| /dports/lang/racket/racket-8.3/collects/syntax/parse/private/ |
| H A D | litconv.rkt | 24 define-literal-set
25 literal-set->predicate
111 (hash-set! lit-t key #t))
126 (define-syntax (define-literal-set stx)
128 [(define-literal-set name . rest)
144 (cond [(assq '#:for-template chunks) -1]
145 [(assq '#:for-syntax chunks) 1]
146 [(assq '#:for-label chunks) #f]
219 (define-literal-set LS (lambda))
261 (define-literal-set kernel-literals
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/syntax/parse/private/ |
| H A D | litconv.rkt | 24 define-literal-set
25 literal-set->predicate
111 (hash-set! lit-t key #t))
126 (define-syntax (define-literal-set stx)
128 [(define-literal-set name . rest)
144 (cond [(assq '#:for-template chunks) -1]
145 [(assq '#:for-syntax chunks) 1]
146 [(assq '#:for-label chunks) #f]
219 (define-literal-set LS (lambda))
261 (define-literal-set kernel-literals
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/progmodes/ |
| H A D | which-func.el | 239 (unless (or (assq 'which-func-mode mode-line-misc-info)
240 (assq 'which-function-mode mode-line-misc-info))
293 (set (make-local-variable 'which-function-imenu-failed) t)))
|
| /dports/mail/mu/mu-1.6.4/mu4e/ |
| H A D | mu4e-mark.el | 94 (set (make-local-variable 'mu4e~mark-map) (make-hash-table)))
248 (markdesc (cdr (or (assq mark mu4e-marks)
306 (let ((getter (plist-get (cdr (assq mark mu4e-marks)) :ask-target)))
312 (let ((getter (plist-get (cdr (assq mark mu4e-marks)) :dyn-target)))
406 (markdescr (assq mark mu4e-marks))
|