Lines Matching +defs:default +defs:map
139 ;; on its branch. The default implementation always returns t, which
141 ;; default.
153 ;; have such a brief-comparison feature, the default implementation of
161 ;; string for FILE. The default implementation deals well with all
167 ;; used in a vc-dired buffer. The default implementation deals well
183 ;; vc-default-init-version is used instead.
190 ;; like change log generation. The default implementation always
196 ;; default implementation always returns t.
201 ;; another backend. The default implementation simply calls `register'
230 ;; is the revision to check out (default is current workfile version).
276 ;; and make sure it is displayed in the buffer's window. The default
282 ;; default implementation of this function works for RCS-style logs.
295 ;; retaining comment information. The default implementation of this
302 ;; all files at or below the default-directory if FILES is nil. The
303 ;; default implementation runs rcs2log, which handles RCS- and
322 ;; vc-BACKEND-diff. The default implementation does an explicit tree
370 ;; checked out under this new branch. The default implementation does
377 ;; up-to-date. Only used by the default version of `create-snapshot'.
383 ;; snapshot that are currently visited. The default implementation
395 ;; default implementation always returns nil.
448 ;; By default, this asks the user if she wants to check out the file.
457 (require 'dired) ; for dired-map-over-marks macro
489 (defcustom vc-default-init-version "1.1"
490 "A string used as the default version number when a new file is registered.
595 "Which mode to color the output of \\[vc-annotate] with by default."
626 (defcustom vc-annotate-color-map
679 displays with 8 or fewer colors, the default is red to blue with
701 (defvar vc-annotate-mode-map
797 (defun vc-default-previous-version (backend file rev)
799 or nil if there is no previous version. This default
816 (defun vc-default-next-version (backend file rev)
818 or nil if there is no next version. This default implementation
905 One difference with the default filter is that this inserts S after markers.
920 (olddir default-directory))
926 (setq default-directory olddir)
1003 (if (and (eq okstatus 'async) (file-remote-p default-directory))
1177 (defun vc-default-latest-on-branch-p (backend file)
1179 This default implementation always returns non-nil, which means that
1180 editing non-current versions is not supported by default."
1186 If VERBOSE is non-nil, query the user rather than using default parameters."
1332 (dired-map-over-marks
1370 the variable `vc-keep-workfiles' is non-nil (which is its default), a
1410 (defun vc-default-init-version (backend) vc-default-init-version)
1498 (defun vc-default-responsible-p (backend file)
1500 The default is to return nil always."
1503 (defun vc-default-could-register (backend file)
1505 The default implementation returns t for all files."
1630 (setq default-directory (expand-file-name "~/"))
1682 (vc-responsible-backend default-directory))
1753 "File or dir to diff (default visited file): "
1755 default-directory buffer-file-name t)))
1756 (rev1-default nil) (rev2-default nil))
1757 ;; compute default versions based on the file state
1759 ;; if it's a directory, don't supply any version default
1764 (setq rev1-default (vc-workfile-version file)))
1765 ;; if the file is not locked, use last and previous version as default
1767 (setq rev1-default (vc-call previous-version file
1769 (if (string= rev1-default "") (setq rev1-default nil))
1770 (setq rev2-default (vc-workfile-version file))))
1773 (read-string (if rev1-default
1774 (concat "Older version (default "
1775 rev1-default "): ")
1777 nil nil rev1-default)
1778 (read-string (if rev2-default
1779 (concat "Newer version (default "
1780 rev2-default "): ")
1781 "Newer version (default current source): ")
1782 nil nil rev2-default))))
1900 (defun vc-default-diff-tree (backend dir rev1 rev2)
1909 (setq default-directory dir)
1911 default-directory
1937 (interactive "sVersion to visit (default is workfile version): ")
1972 (defun vc-default-find-version (backend file rev buffer)
2057 "(default news on current branch): ")))
2091 (defvar vc-dired-mode-map
2092 (let ((map (make-sparse-keymap))
2094 (define-key map "\C-xv" vmap)
2095 (define-key map "v" vmap)
2096 (set-keymap-parent vmap vc-prefix-map)
2098 map))
2117 ;; when vc-dired-mode-map is initialized.
2118 (set-keymap-parent vc-dired-mode-map dired-mode-map)
2181 (define-key vc-dired-mode-map "*l" 'vc-dired-mark-locked)
2183 (defun vc-default-dired-state-info (backend file)
2264 (message "No files locked under %s" default-directory)))))
2275 (if (not (string= (dired-current-directory) default-directory))
2360 (list (read-file-name "Directory: " default-directory default-directory t)
2369 (defun vc-default-create-snapshot (backend dir name branchp)
2388 (list (read-file-name "Directory: " default-directory default-directory t)
2389 (read-string "Snapshot name to retrieve (default latest versions): ")))
2400 (defun vc-default-retrieve-snapshot (backend dir name update)
2468 (defun vc-default-show-log-entry (backend rev)
2472 (defun vc-default-comment-history (backend file)
2480 (defun vc-default-wash-log (backend file)
2482 This default implementation works for RCS logs; backends should override
2585 (defun vc-default-revert (backend file contents-done)
2603 (let ((default-directory (file-name-directory file)))
2678 By default, this command cycles through the registered backends.
2779 (defun vc-default-unregister (backend file)
2783 (defun vc-default-receive-file (backend file rev)
2837 (defun vc-default-rename-file (backend old new)
2878 Normally, find log entries for all registered files in the default
2885 log for the default directory, which may not be appropriate.
2905 ;; the default-directory.
2907 (dolist (file (or args (list default-directory)))
2910 (vc-call-backend (vc-responsible-backend default-directory)
2913 (defun vc-default-update-changelog (backend files)
2917 (let ((odefault default-directory)
2942 (setq default-directory odefault)
2963 (setq default-directory (file-name-directory changelog))
2996 (defun vc-annotate-display-default (ratio)
2997 "Display the output of \\[vc-annotate] using the default color range.
2998 The color range is given by `vc-annotate-color-map', scaled by RATIO.
3000 (interactive (progn (kill-local-variable 'vc-annotate-color-map) '(1.0)))
3005 (defun vc-annotate-oldest-in-map (color-map)
3008 (caar (last color-map)))
3011 "Highlight the output of \\[vc-annotate] using an autoscaled color map.
3012 Autoscaling means that the map is scaled from the current time to the
3033 (vc-annotate-oldest-in-map vc-annotate-color-map))
3043 (easy-menu-define vc-annotate-mode-menu vc-annotate-mode-map
3050 ,@(let ((oldest-in-map (vc-annotate-oldest-in-map vc-annotate-color-map)))
3052 (let ((days (* element oldest-in-map)))
3083 By default, the current buffer is highlighted, unless overridden by
3090 ;; The ratio is global, thus relative to the global color-map.
3091 (kill-local-variable 'vc-annotate-color-map)
3092 (vc-annotate-display-default (or vc-annotate-ratio 1.0)))
3099 (vc-annotate-display-default
3101 (vc-annotate-oldest-in-map vc-annotate-color-map))))
3113 default, the time scale stretches back one year into the past;
3119 \(type RET in the minibuffer to leave that default unchanged). Then,
3128 mode-specific menu. `vc-annotate-color-map' and
3138 (format "Annotate from version (default %s): " def)
3143 (read-string "Annotate span days (default 20): "
3333 (defun vc-default-annotate-current-time (backend)
3341 RATIO, is the expansion that should be applied to `vc-annotate-color-map'.
3344 (set (make-local-variable 'vc-annotate-color-map)
3346 vc-annotate-color-map)))
3354 (let* ((color (or (vc-annotate-compcar difference vc-annotate-color-map)
3379 (defalias 'vc-default-logentry-check 'ignore)
3386 (defun vc-default-check-headers (backend)
3396 (setq default-directory
3398 (with-current-buffer vc-parent-buffer default-directory)))