diff options
| author | Karoly Lorentey | 2004-08-31 16:30:29 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2004-08-31 16:30:29 +0000 |
| commit | bfe3b03c6a537ffbdfa25e3b16acd40ae6a833ef (patch) | |
| tree | 961072e4fa30982489b86dd8bc831fe42fedc25e /lisp | |
| parent | d61858fb8b38da03f4a53f33e66b11e280533627 (diff) | |
| parent | 2728b5d02c0686c40c49aebd00f7d5520b371aed (diff) | |
| download | emacs-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.el | 2 | ||||
| -rw-r--r-- | lisp/vc-svn.el | 13 |
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. |
| 666 | It is generated from the variable `completion-ignored-extensions'") | 666 | It 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 |