aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorKaroly Lorentey2004-08-31 16:30:29 +0000
committerKaroly Lorentey2004-08-31 16:30:29 +0000
commitbfe3b03c6a537ffbdfa25e3b16acd40ae6a833ef (patch)
tree961072e4fa30982489b86dd8bc831fe42fedc25e /lisp
parentd61858fb8b38da03f4a53f33e66b11e280533627 (diff)
parent2728b5d02c0686c40c49aebd00f7d5520b371aed (diff)
downloademacs-bfe3b03c6a537ffbdfa25e3b16acd40ae6a833ef.tar.gz
emacs-bfe3b03c6a537ffbdfa25e3b16acd40ae6a833ef.zip
Merged in changes from CVS trunk (Jan Djärv has fixed the XSync call in xterm.c, no need to disable it anymore).
Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-506 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-507 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-508 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-238
Diffstat (limited to 'lisp')
-rw-r--r--lisp/speedbar.el2
-rw-r--r--lisp/vc-svn.el13
2 files changed, 9 insertions, 6 deletions
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 1a222e6004e..db16f2f78f3 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -665,7 +665,7 @@ useful, such as version control."
665 "*Regexp matching files we don't want displayed in a speedbar buffer. 665 "*Regexp matching files we don't want displayed in a speedbar buffer.
666It is generated from the variable `completion-ignored-extensions'") 666It is generated from the variable `completion-ignored-extensions'")
667 667
668;; Ugly compiler silencing trick. The real defvar comes later in this file. 668;; Compiler silencing trick. The real defvar comes later in this file.
669(defvar speedbar-file-regexp) 669(defvar speedbar-file-regexp)
670 670
671;; this is dangerous to customize, because the defaults will probably 671;; this is dangerous to customize, because the defaults will probably
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index 82c09cbd435..fafb5eff7cd 100644
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -1,6 +1,7 @@
1;;; vc-svn.el --- non-resident support for Subversion version-control 1;;; vc-svn.el --- non-resident support for Subversion version-control
2 2
3;; Copyright (C) 1995,98,99,2000,2001,02,2003 Free Software Foundation, Inc. 3;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004
4;; Free Software Foundation, Inc.
4 5
5;; Author: FSF (see vc.el for full credits) 6;; Author: FSF (see vc.el for full credits)
6;; Maintainer: Stefan Monnier <monnier@gnu.org> 7;; Maintainer: Stefan Monnier <monnier@gnu.org>
@@ -363,7 +364,10 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
363 (append (vc-switches nil 'diff) '("/dev/null"))) 364 (append (vc-switches nil 'diff) '("/dev/null")))
364 ;; Even if it's empty, it's locally modified. 365 ;; Even if it's empty, it's locally modified.
365 1) 366 1)
366 (let* ((switches (vc-switches 'SVN 'diff)) 367 (let* ((switches
368 (if vc-svn-diff-switches
369 (vc-switches 'SVN 'diff)
370 (list "-x" (mapconcat 'identity (vc-switches nil 'diff) " "))))
367 (async (and (vc-stay-local-p file) 371 (async (and (vc-stay-local-p file)
368 (or oldvers newvers) ; Svn diffs those locally. 372 (or oldvers newvers) ; Svn diffs those locally.
369 (fboundp 'start-process)))) 373 (fboundp 'start-process))))
@@ -371,8 +375,7 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
371 (if async 'async 0) 375 (if async 'async 0)
372 file "diff" 376 file "diff"
373 (append 377 (append
374 (when switches 378 switches
375 (list "-x" (mapconcat 'identity switches " ")))
376 (when oldvers 379 (when oldvers
377 (list "-r" (if newvers (concat oldvers ":" newvers) 380 (list "-r" (if newvers (concat oldvers ":" newvers)
378 oldvers))))) 381 oldvers)))))
@@ -504,5 +507,5 @@ essential information."
504 507
505(provide 'vc-svn) 508(provide 'vc-svn)
506 509
507;;; arch-tag: 02f10c68-2b4d-453a-90fc-1eee6cfb268d 510;; arch-tag: 02f10c68-2b4d-453a-90fc-1eee6cfb268d
508;;; vc-svn.el ends here 511;;; vc-svn.el ends here