Mercurial > emacs

comparison lisp/vc.el @ 10431:7981b19e9028

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-do-command): Use set-buffer-modified-p instead of not-modified.
author Roland McGrath <roland@gnu.org>
date Sun, 15 Jan 1995 11:00:38 +0000
parents 08876628ef14
children 2d9590603a06
comparison
equal deleted inserted replaced
10430:3499c4e1e82f 10431:7981b19e9028
1 ;;; vc.el --- drive a version-control system from within Emacs 1 ;;; vc.el --- drive a version-control system from within Emacs
2 2
3 ;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
4 4
5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
6 ;; Maintainer: ttn@netcom.com 6 ;; Maintainer: ttn@netcom.com
7 ;; Version: 5.6 7 ;; Version: 5.6
8 8
257 (cons (concat "PATH=" (getenv "PATH") 257 (cons (concat "PATH=" (getenv "PATH")
258 ":" (mapconcat 'identity vc-path ":")) 258 ":" (mapconcat 'identity vc-path ":"))
259 process-environment))) 259 process-environment)))
260 (setq status (apply 'call-process command nil t nil squeezed))) 260 (setq status (apply 'call-process command nil t nil squeezed)))
261 (goto-char (point-max)) 261 (goto-char (point-max))
262 (not-modified) 262 (set-buffer-modified-p nil)
263 (forward-line -1) 263 (forward-line -1)
264 (if (or (not (integerp status)) (< okstatus status)) 264 (if (or (not (integerp status)) (< okstatus status))
265 (progn 265 (progn
266 (pop-to-buffer "*vc*") 266 (pop-to-buffer "*vc*")
267 (goto-char (point-min)) 267 (goto-char (point-min))