Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
8c3d7147
Commit
8c3d7147
authored
Jul 07, 2008
by
Dan Nicolaescu
Browse files
(vc-git--ls-files-state): Remove unused function.
parent
701d018c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
2 additions
and
14 deletions
+2
-14
lisp/ChangeLog
lisp/ChangeLog
+2
-0
lisp/vc-git.el
lisp/vc-git.el
+0
-14
No files found.
lisp/ChangeLog
View file @
8c3d7147
2008-07-07 Dan Nicolaescu <dann@ics.uci.edu>
* vc-git.el (vc-git--ls-files-state): Remove unused function.
* vc-bzr.el (vc-bzr-after-dir-status): Deal with execute bit changes.
2008-07-06 John Paul Wallington <jpw@pobox.com>
...
...
lisp/vc-git.el
View file @
8c3d7147
...
...
@@ -55,7 +55,6 @@
;; * checkout-model (files) OK
;; - workfile-unchanged-p (file) OK
;; - mode-line-string (file) OK
;; - prettify-state-info (file) OK
;; STATE-CHANGING FUNCTIONS
;; * create-repo () OK
;; * register (files &optional rev comment) OK
...
...
@@ -166,19 +165,6 @@
(
vc-git--state-code
(
match-string
1
diff
))
(
if
(
vc-git--empty-db-p
)
'added
'up-to-date
)))))
(
defun
vc-git--ls-files-state
(
state
&rest
args
)
"Set state to STATE on all files found with git-ls-files ARGS."
(
with-temp-buffer
(
apply
'vc-git-command
(
current-buffer
)
nil
nil
"ls-files"
"-z"
args
)
(
goto-char
(
point-min
))
(
let
((
start
(
point
)))
(
while
(
search-forward
"\0"
nil
t
)
(
let
((
file
(
expand-file-name
(
buffer-substring-no-properties
start
(
1-
(
point
))))))
(
vc-file-setprop
file
'vc-backend
(
if
state
'Git
'none
))
(
vc-file-setprop
file
'vc-state
state
))
(
setq
start
(
point
))))))
(
defun
vc-git-working-revision
(
file
)
"Git-specific version of `vc-working-revision'."
(
let
((
str
(
with-output-to-string
...
...
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