Lines Matching +defs:list +defs:part
12 ;; This file is part of GNU Emacs.
85 ;; you put the symbol SYS somewhere into the list of
100 ;; In the list of functions below, each identifier needs to be prepended
112 ;; Return the current version control state of FILE. For a list of
122 ;; than the implementation of `state'. For a list of possible values,
146 ;; edited. See `vc-checkout-model' for a list of possible values.
339 ;; multi-part times as returned by `current-time' and `encode-time'
503 "A string or list of strings specifying extra switches for checkin.
513 "A string or list of strings specifying extra switches for checkout.
523 "A string or list of strings; extra switches for registering a file.
550 (defcustom vc-directory-exclusion-list '("SCCS" "RCS" "CVS" "MCVS" ".svn" "{arch}")
556 "A string or list of strings specifying switches for diff under VC.
588 "Normal hook (list of functions) run after checking out a file.
605 "Normal hook (list of functions) run after a checkin is done.
613 "Normal hook (list of functions) run before a file is checked in.
676 "Association list of age versus color, for \\[vc-annotate].
729 Add an entry in this list if you need to override the normal `comment-start'
732 :type '(repeat (list :format "%v"
786 (defun vc-branch-part (rev)
787 "Return the branch part of a revision number REV."
792 (defun vc-minor-part (rev)
802 (let ((branch (vc-branch-part rev))
803 (minor-num (string-to-number (vc-minor-part rev))))
814 (vc-branch-part branch))))))
822 (let ((branch (vc-branch-part rev))
823 (minor-num (string-to-number (vc-minor-part rev))))
835 SETTINGS is an association list of property/value pairs. After
839 `(let ((vc-touched-properties (list t)))
909 (let ((buffer-undo-list t)
927 (let ((buffer-undo-list t)
955 (list `(vc-exec-after ',code))))))))
976 don't expect a file name). If an optional list of FLAGS is present,
994 (setq squeezed (append squeezed (list (file-relative-name file)))))
1018 (let ((buffer-undo-list t))
1040 (list posn
1075 "Return a list (POINT-CONTEXT MARK-CONTEXT REPARSE).
1083 ;; The new compilation code does not use compilation-error-list any
1087 ;; (reparse (and (boundp 'compilation-error-list) ;compile loaded
1088 ;; ;; Construct a list; each elt is nil or a buffer
1095 ;; compilation-old-error-list
1096 ;; compilation-error-list))
1107 ;; (buffer-list)))))
1109 (list point-context mark-context reparse)))
1117 ;; The new compilation code does not use compilation-error-list any
1128 ;; (car (car-safe compilation-error-list)))))
1133 ;; (while (and compilation-error-list
1134 ;; (/= error-pos (car (car compilation-error-list))))
1135 ;; (setq compilation-error-list (cdr compilation-error-list))))))
1418 The version control system to use is found by cycling through the list
1419 `vc-handled-backends'. The first backend in that list which declares
1734 (interactive (list current-prefix-arg t))
1771 ;; construct argument list
1772 (list file
1853 (list (file-relative-name file-rev1)
1862 (list "-L" (vc-diff-label file file-rev1 rev1)
1872 (list (file-relative-name file-rev1)
1890 (if (stringp switches) (list switches)
1891 ;; If not a list, return nil.
1897 (defmacro vc-diff-switches-list (backend) `(vc-switches ',backend 'diff))
1898 (make-obsolete 'vc-diff-switches-list 'vc-switches "22.1")
2067 (concat (vc-branch-part first-version) ".")))
2072 (setq first-version (vc-branch-part first-version)))
2232 vc-directory-exclusion-list)
2286 "Return a list of all vc-dired buffers that currently display DIR."
2293 (setq result (append result (list buffer))))))
2298 "Update the entries for FILE in any VC Dired buffers that list it."
2356 becomes part of the named configuration. If the prefix argument
2360 (list (read-file-name "Directory: " default-directory default-directory t)
2388 (list (read-file-name "Directory: " default-directory default-directory t)
2681 (list
2705 (mapcar (lambda (b) (list (downcase (symbol-name b)))) backends)
2891 (list buffer-file-name))
2894 (buffers (buffer-list))
2907 (dolist (file (or args (list default-directory)))
2946 nil (list t tempfile) nil
3134 (list buffer-file-name
3305 (defun vc-annotate-compcar (threshold a-list)
3310 (tmp-cons (car a-list)))
3312 (setq tmp-cons (car (nthcdr i a-list)))
3318 The argument TIME is a list as returned by `current-time' or
3319 `encode-time', only the first two elements of that list are considered."
3400 (if file `(lambda () ',(list (file-name-nondirectory file)))
3427 (member f vc-directory-exclusion-list)