mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

* vc-sccs.el (vc-sccs-workfile-unchanged-p): Replace external vcdiff script.

Browse Source
This commit is contained in:
Glenn Morris 2012-06-04 21:05:51 -04:00
parent a043d3535a
commit 08f9f7385c
2 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2012-06-05 Glenn Morris <rgm@gnu.org>
* vc/vc-sccs.el (vc-sccs-workfile-unchanged-p):
Replace external vcdiff script.
2012-06-04 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/cl-lib.el (cl-values, cl-values-list): Fix up last change.

16
lisp/vc/vc-sccs.el
View File

@ -1,6 +1,6 @@
;;; vc-sccs.el --- support for SCCS version-control
;; Copyright (C) 1992-2012 Free Software Foundation, Inc.
;; Copyright (C) 1992-2012 Free Software Foundation, Inc.
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
@ -188,9 +188,17 @@ For a description of possible values, see `vc-check-master-templates'."
(defun vc-sccs-workfile-unchanged-p (file)
"SCCS-specific implementation of `vc-workfile-unchanged-p'."
(zerop (apply 'vc-do-command "*vc*" 1 "vcdiff" (vc-name file)
(list "--brief" "-q"
(concat "-r" (vc-working-revision file))))))
(let ((tempfile (make-temp-file "vc-sccs")))
(unwind-protect
(progn
(with-temp-buffer
;; Cf vc-sccs-find-revision.
(vc-sccs-do-command t 0 "get" (vc-name file)
"-s" "-p" "-k" ; no keyword expansion
(concat "-r" (vc-working-revision file)))
(write-region nil nil tempfile nil 'silent))
(zerop (vc-do-command "*vc*" 1 "cmp" file tempfile)))
(delete-file tempfile))))
;;;