Lines Matching +defs:version +defs:alist
14 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; any later version.
201 ;; functions probably depend on the dired-subdir-alist to be OK.
203 (defcustom dired-dnd-protocol-alist
208 See `dnd-protocol-alist' for more information. When nil, behave
213 :version "22.1"
240 (defvar dired-file-version-alist)
279 (defvar dired-subdir-alist nil
285 (defvar dired-switches-alist nil
287 This is an alist of the form (SUBDIR . SWITCHES).")
288 (make-variable-buffer-local 'dired-switches-alist)
309 :version "22.1")
317 :version "22.1")
325 :version "22.1")
333 :version "22.1")
341 :version "22.1")
349 :version "22.1")
357 :version "22.1")
365 :version "22.1")
444 (defvar dnd-protocol-alist)
780 wildcards, erases the buffer, and builds the subdir-alist anew
807 ;; Must first make alist buffer local and set it to nil because
808 ;; dired-build-subdir-alist will call dired-clear-alist first
809 (set (make-local-variable 'dired-subdir-alist) nil)
810 (dired-build-subdir-alist)
818 ;; as the subdir-alist has been built in dired-readin.
1004 ;; Note that dired-build-subdir-alist will replace the name
1041 (mark-alist nil) ; save marked files
1043 (old-subdir-alist (cdr (reverse dired-subdir-alist))) ; except pwd
1047 (setq mark-alist;; only after dired-remember-hidden since this unhides:
1055 (dired-insert-old-subdirs old-subdir-alist))
1056 (dired-mark-remembered mark-alist) ; mark files that were marked
1077 "Return alist of files and their marks, from BEG to END."
1081 (let (fil chr alist)
1087 alist (cons (cons fil chr) alist)))))
1088 alist))
1090 (defun dired-mark-remembered (alist)
1094 (while alist
1095 (setq elt (car alist)
1096 alist (cdr alist)
1107 (let ((l dired-subdir-alist) dir pos result)
1118 (defun dired-insert-old-subdirs (old-subdir-alist)
1120 Do so according to the former subdir alist OLD-SUBDIR-ALIST."
1123 (while old-subdir-alist
1124 (setq elt (car old-subdir-alist)
1125 old-subdir-alist (cdr old-subdir-alist)
1583 subdirectory, or type \\[dired-build-subdir-alist] to parse the buffer
1639 (setq dired-switches-alist nil)
1642 (set (make-local-variable 'dnd-protocol-alist)
1643 (append dired-dnd-protocol-alist dnd-protocol-alist)))
1664 (dired-build-subdir-alist)
1708 (and (cdr dired-subdir-alist)
1762 (or (and (cdr dired-subdir-alist)
1777 (or (and (cdr dired-subdir-alist)
1922 ;; This is the UNIX version.
1947 ;; This is the UNIX version.
2051 (let ((alist dired-buffers) result elt buf)
2052 (while alist
2053 (setq elt (car alist)
2058 (and (assoc dir dired-subdir-alist)
2068 (setq alist (cdr alist)))
2118 ;; Remove DIR from the buffer alist in variable dired-buffers.
2146 ;; Look up in the alist whether this is a headerline.
2149 (beginning-of-line) ; alist stores b-o-l positions
2152 dired-subdir-alist))))
2157 ;; can't use macro, must be redefinable for other alist format in dired-nstd.
2165 (defun dired-clear-alist ()
2166 (while dired-subdir-alist
2167 (set-marker (dired-get-subdir-min (car dired-subdir-alist)) nil)
2168 (setq dired-subdir-alist (cdr dired-subdir-alist))))
2171 ;; Return an index into alist for use with nth
2173 (let (found (index 0) (alist dired-subdir-alist))
2174 (while alist
2175 (if (string= dir (car (car alist)))
2176 (setq alist nil found t)
2177 (setq alist (cdr alist) index (1+ index))))
2184 ;; position was found in dired-subdir-alist.
2191 (dired-get-subdir-min (nth index dired-subdir-alist))))
2201 (defun dired-build-subdir-alist (&optional switches)
2202 "Build `dired-subdir-alist' by parsing the buffer.
2203 Returns the new value of the alist.
2207 (dired-clear-alist)
2221 (setq dired-subdir-alist nil)
2245 (dired-alist-add-1 new-dir-name
2254 ;; constructionem. Return new alist:
2255 dired-subdir-alist))
2257 (defun dired-alist-add-1 (dir new-marker)
2259 (setq dired-subdir-alist
2261 dired-subdir-alist)))
2301 (and (cdr dired-subdir-alist)
2352 (alist (or dired-subdir-alist
2354 (error "No subdir-alist in %s" (current-buffer))))
2356 (while alist
2357 (setq elt (car alist)
2360 alist (if (<= (dired-get-subdir-min elt) here)
2362 (cdr alist))))
2372 (if (or (null (cdr dired-subdir-alist)) (not (dired-next-subdir 1 t t)))
2460 ;; L is an alist of files to delete, with their buffer positions.
2530 (save-excursion (and (cdr dired-subdir-alist)
2674 ;; This version skips non-file lines.
3194 (defvar dired-subdir-alist-pre-R nil
3195 "Value of `dired-subdir-alist' before -R switch added.")
3196 (make-variable-buffer-local 'dired-subdir-alist-pre-R)
3200 Saves `dired-subdir-alist' when R is set and restores saved value
3206 ;; Adding -R to ls switches -- save `dired-subdir-alist':
3207 (setq dired-subdir-alist-pre-R dired-subdir-alist))
3212 (setq dired-subdir-alist
3213 (if dired-subdir-alist-pre-R
3215 (while dired-subdir-alist-pre-R
3216 (if (assoc (caar dired-subdir-alist-pre-R)
3217 dired-subdir-alist)
3220 (cons (car dired-subdir-alist-pre-R)
3222 (setq dired-subdir-alist-pre-R
3223 (cdr dired-subdir-alist-pre-R)))
3225 ;; No pre-R subdir alist, so revert to main directory
3227 (list (car (reverse dired-subdir-alist))))))))
3330 ;; Subdirectories in `dired-subdir-alist'.
3335 dired-subdir-alist)))))
3350 ;; from `dired-subdir-alist'.