Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e6244c1b
Commit
e6244c1b
authored
May 06, 2008
by
Eric S. Raymond
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Cleanup preparatory to getting rid of dired.
parent
9852a51d
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
3 additions
and
16 deletions
+3
-16
lisp/vc-dispatcher.el
lisp/vc-dispatcher.el
+1
-1
lisp/vc-hooks.el
lisp/vc-hooks.el
+1
-1
lisp/vc.el
lisp/vc.el
+1
-14
No files found.
lisp/vc-dispatcher.el
View file @
e6244c1b
...
@@ -1712,7 +1712,7 @@ Otherwise, throw an error."
...
@@ -1712,7 +1712,7 @@ Otherwise, throw an error."
(
dolist
(
file
files
)
(
dolist
(
file
files
)
(
let
((
visited
(
get-file-buffer
file
)))
(
let
((
visited
(
get-file-buffer
file
)))
(
when
visited
(
when
visited
(
if
(
or
vc-di
red-mode
(
eq
major-mode
'vc-dir-mode
)
)
(
if
(
vc-di
spatcher-browsing
)
(
switch-to-buffer-other-window
visited
)
(
switch-to-buffer-other-window
visited
)
(
set-buffer
visited
))
(
set-buffer
visited
))
;; Check relation of buffer and file, and make sure
;; Check relation of buffer and file, and make sure
...
...
lisp/vc-hooks.el
View file @
e6244c1b
...
@@ -771,7 +771,7 @@ Before doing that, check if there are any old backups and get rid of them."
...
@@ -771,7 +771,7 @@ Before doing that, check if there are any old backups and get rid of them."
(
vc-mode-line
file
)
(
vc-mode-line
file
)
(
when
(
featurep
'vc
)
(
when
(
featurep
'vc
)
;; If VC is not loaded, then there can't be
;; If VC is not loaded, then there can't be
;; any
VC Dired
buffer to synchronize.
;; any
directory
buffer to synchronize.
(
vc-directory-resynch-file
file
)))))
(
vc-directory-resynch-file
file
)))))
(
defvar
vc-menu-entry
(
defvar
vc-menu-entry
...
...
lisp/vc.el
View file @
e6244c1b
...
@@ -45,15 +45,6 @@
...
@@ -45,15 +45,6 @@
;; with modern version-control systems that do commits by fileset
;; with modern version-control systems that do commits by fileset
;; rather than per individual file.
;; rather than per individual file.
;;
;;
;; Features in the new version:
;; * Key commands (vc-next-action = C-x v v, vc-print-log = C-x v l, vc-revert
;; = C-x v u, vc-rollback = C-x v c, vc-diff = C-x v =, vc-update = C-x v +)
;; now operate on filesets rather than individual files.
;; * The fileset for a command is either (a) all marked files in VC-dired
;; mode, (b) the currently visited file if it's under version control,
;; or (c) the current directory if the visited buffer is not under
;; version control and a wildcarding-enable flag has been set.
;;
;; If you maintain a client of the mode or customize it in your .emacs,
;; If you maintain a client of the mode or customize it in your .emacs,
;; note that some backend functions which formerly took single file arguments
;; note that some backend functions which formerly took single file arguments
;; now take a list of files. These include: register, checkin, print-log,
;; now take a list of files. These include: register, checkin, print-log,
...
@@ -184,10 +175,6 @@
...
@@ -184,10 +175,6 @@
;; To provide more backend specific functionality for `vc-dir'
;; To provide more backend specific functionality for `vc-dir'
;; the following functions might be needed: `status-extra-headers',
;; the following functions might be needed: `status-extra-headers',
;; `status-printer', `extra-status-menu' and `dir-status-files'.
;; `status-printer', `extra-status-menu' and `dir-status-files'.
;; This function is used by `vc-dir', a replacement for
;; `vc-dired'. vc-dir is still under development, and is NOT
;; feature complete. As such, the requirements for this function
;; might change. This is a replacement for `dir-state'.
;;
;;
;; - dir-status-files (dir files default-state update-function)
;; - dir-status-files (dir files default-state update-function)
;;
;;
...
@@ -2747,7 +2734,7 @@ to provide the `find-revision' operation instead."
...
@@ -2747,7 +2734,7 @@ to provide the `find-revision' operation instead."
((
eq
state
'needs-update
)
"(update)"
)
((
eq
state
'needs-update
)
"(update)"
)
((
eq
state
'added
)
"(added)"
)
((
eq
state
'added
)
"(added)"
)
((
eq
state
'removed
)
"(removed)"
)
((
eq
state
'removed
)
"(removed)"
)
((
eq
state
'ignored
)
"(ignored)"
)
;; dired-hook filters this out
((
eq
state
'ignored
)
"(ignored)"
)
((
eq
state
'unregistered
)
"?"
)
((
eq
state
'unregistered
)
"?"
)
((
eq
state
'unlocked-changes
)
"(stale)"
)
((
eq
state
'unlocked-changes
)
"(stale)"
)
((
not
state
)
"(unknown)"
)))
((
not
state
)
"(unknown)"
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment