diff options
| author | Glenn Morris | 2010-10-08 00:51:19 -0700 |
|---|---|---|
| committer | Glenn Morris | 2010-10-08 00:51:19 -0700 |
| commit | 24ac444fbe5d76a7cf09a62b741b9e956ab90d3e (patch) | |
| tree | 404260f7dddff8ecbc0ab496857fe431c739db18 | |
| parent | 5d5870b813c9ad0cc51740553fc9adb7400888e3 (diff) | |
| download | emacs-24ac444fbe5d76a7cf09a62b741b9e956ab90d3e.tar.gz emacs-24ac444fbe5d76a7cf09a62b741b9e956ab90d3e.zip | |
Remove some tests for defunct system-types.
* lisp/vc/ediff-wind.el (ediff-setup-control-frame):
* lisp/vc/ediff-ptch.el (ediff-default-backup-extension):
* lisp/vc/ediff-diff.el (ediff-shell, ediff-diff-options)
(ediff-exec-process): Remove system-types emx, windows-95.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/vc/ediff-diff.el | 16 | ||||
| -rw-r--r-- | lisp/vc/ediff-ptch.el | 8 | ||||
| -rw-r--r-- | lisp/vc/ediff-wind.el | 17 |
4 files changed, 24 insertions, 22 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 26648fedece..43589198bea 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,10 @@ | |||
| 1 | 2010-10-08 Glenn Morris <rgm@gnu.org> | 1 | 2010-10-08 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * vc/ediff-wind.el (ediff-setup-control-frame): | ||
| 4 | * vc/ediff-ptch.el (ediff-default-backup-extension): | ||
| 5 | * vc/ediff-diff.el (ediff-shell, ediff-diff-options) | ||
| 6 | (ediff-exec-process): Remove system-types emx, windows-95. | ||
| 7 | |||
| 3 | * net/browse-url.el (browse-url-xdg-open): Shell-quote url. (Bug#7166) | 8 | * net/browse-url.el (browse-url-xdg-open): Shell-quote url. (Bug#7166) |
| 4 | 9 | ||
| 5 | 2010-10-07 Chong Yidong <cyd@stupidchicken.com> | 10 | 2010-10-07 Chong Yidong <cyd@stupidchicken.com> |
diff --git a/lisp/vc/ediff-diff.el b/lisp/vc/ediff-diff.el index 4316b6e4d93..70352751d8d 100644 --- a/lisp/vc/ediff-diff.el +++ b/lisp/vc/ediff-diff.el | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | ;;; ediff-diff.el --- diff-related utilities | 1 | ;;; ediff-diff.el --- diff-related utilities |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, | 3 | ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, |
| 4 | ;; 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | 4 | ;; 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
| 5 | ;; Free Software Foundation, Inc. | ||
| 5 | 6 | ||
| 6 | ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> | 7 | ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> |
| 7 | ;; Package: ediff | 8 | ;; Package: ediff |
| @@ -54,8 +55,7 @@ Must produce output compatible with Unix's diff3 program." | |||
| 54 | (fset 'ediff-set-actual-diff-options '(lambda () nil)) | 55 | (fset 'ediff-set-actual-diff-options '(lambda () nil)) |
| 55 | 56 | ||
| 56 | (defcustom ediff-shell | 57 | (defcustom ediff-shell |
| 57 | (cond ((eq system-type 'emx) "cmd") ; OS/2 | 58 | (cond ((memq system-type '(ms-dos windows-nt)) |
| 58 | ((memq system-type '(ms-dos windows-nt windows-95)) | ||
| 59 | shell-file-name) ; no standard name on MS-DOS | 59 | shell-file-name) ; no standard name on MS-DOS |
| 60 | (t "sh")) ; UNIX | 60 | (t "sh")) ; UNIX |
| 61 | "The shell used to run diff and patch. | 61 | "The shell used to run diff and patch. |
| @@ -85,7 +85,7 @@ are `-I REGEXP', to ignore changes whose lines match the REGEXP." | |||
| 85 | (ediff-set-actual-diff-options)) | 85 | (ediff-set-actual-diff-options)) |
| 86 | 86 | ||
| 87 | (defcustom ediff-diff-options | 87 | (defcustom ediff-diff-options |
| 88 | (if (memq system-type '(ms-dos windows-nt windows-95)) "--binary" "") | 88 | (if (memq system-type '(ms-dos windows-nt)) "--binary" "") |
| 89 | "Options to pass to `ediff-diff-program'. | 89 | "Options to pass to `ediff-diff-program'. |
| 90 | If Unix diff is used as `ediff-diff-program', | 90 | If Unix diff is used as `ediff-diff-program', |
| 91 | then a useful option is `-w', to ignore space. | 91 | then a useful option is `-w', to ignore space. |
| @@ -1229,15 +1229,14 @@ delimiter regions")) | |||
| 1229 | (with-current-buffer buffer | 1229 | (with-current-buffer buffer |
| 1230 | (erase-buffer) | 1230 | (erase-buffer) |
| 1231 | (setq default-directory directory) | 1231 | (setq default-directory directory) |
| 1232 | (if (or (memq system-type '(emx ms-dos windows-nt windows-95)) | 1232 | (if (or (memq system-type '(ms-dos windows-nt)) |
| 1233 | synch) | 1233 | synch) |
| 1234 | ;; In OS/2 (emx) do it synchronously, since OS/2 doesn't let us | 1234 | ;; In Windows do it synchronously, since Windows doesn't let us |
| 1235 | ;; delete files used by other processes. Thus, in ediff-buffers | 1235 | ;; delete files used by other processes. Thus, in ediff-buffers |
| 1236 | ;; and similar functions, we can't delete temp files because | 1236 | ;; and similar functions, we can't delete temp files because |
| 1237 | ;; they might be used by the asynch process that computes | 1237 | ;; they might be used by the asynch process that computes |
| 1238 | ;; custom diffs. So, we have to wait till custom diff | 1238 | ;; custom diffs. So, we have to wait till custom diff |
| 1239 | ;; subprocess is done. | 1239 | ;; subprocess is done. |
| 1240 | ;; Similarly for Windows-* | ||
| 1241 | ;; In DOS, must synchronize because DOS doesn't have | 1240 | ;; In DOS, must synchronize because DOS doesn't have |
| 1242 | ;; asynchronous processes. | 1241 | ;; asynchronous processes. |
| 1243 | (apply 'call-process program nil buffer nil args) | 1242 | (apply 'call-process program nil buffer nil args) |
| @@ -1533,5 +1532,4 @@ affects only files whose names match the expression." | |||
| 1533 | ;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body)) | 1532 | ;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body)) |
| 1534 | ;; End: | 1533 | ;; End: |
| 1535 | 1534 | ||
| 1536 | ;; arch-tag: a86d448e-58d7-4572-a1d9-fdedfa22f648 | ||
| 1537 | ;;; ediff-diff.el ends here | 1535 | ;;; ediff-diff.el ends here |
diff --git a/lisp/vc/ediff-ptch.el b/lisp/vc/ediff-ptch.el index b6c7f6ab7ba..393bdcb673c 100644 --- a/lisp/vc/ediff-ptch.el +++ b/lisp/vc/ediff-ptch.el | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | ;;; ediff-ptch.el --- Ediff's patch support | 1 | ;;; ediff-ptch.el --- Ediff's patch support |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, | 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | 4 | ;; 2005, 2006, 2007, 2008, 2009, 2010 |
| 5 | ;; Free Software Foundation, Inc. | ||
| 5 | 6 | ||
| 6 | ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> | 7 | ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> |
| 7 | ;; Package: ediff | 8 | ;; Package: ediff |
| @@ -62,7 +63,7 @@ case the default value for this variable should be changed." | |||
| 62 | 63 | ||
| 63 | ;; the default backup extension | 64 | ;; the default backup extension |
| 64 | (defconst ediff-default-backup-extension | 65 | (defconst ediff-default-backup-extension |
| 65 | (if (memq system-type '(emx ms-dos)) | 66 | (if (eq system-type 'ms-dos) |
| 66 | "_orig" ".orig")) | 67 | "_orig" ".orig")) |
| 67 | 68 | ||
| 68 | 69 | ||
| @@ -841,5 +842,4 @@ you can still examine the changes via M-x ediff-files" | |||
| 841 | ;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body)) | 842 | ;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body)) |
| 842 | ;; End: | 843 | ;; End: |
| 843 | 844 | ||
| 844 | ;; arch-tag: 2fe2161e-e116-469b-90fa-5cbb44c1bd1b | ||
| 845 | ;;; ediff-ptch.el ends here | 845 | ;;; ediff-ptch.el ends here |
diff --git a/lisp/vc/ediff-wind.el b/lisp/vc/ediff-wind.el index 8b16c5a4a12..4d6666a86f2 100644 --- a/lisp/vc/ediff-wind.el +++ b/lisp/vc/ediff-wind.el | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | ;;; ediff-wind.el --- window manipulation utilities | 1 | ;;; ediff-wind.el --- window manipulation utilities |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 1995, 1996, 1997, 2000, 2001, 2002, 2003, | 3 | ;; Copyright (C) 1994, 1995, 1996, 1997, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | 4 | ;; 2005, 2006, 2007, 2008, 2009, 2010 |
| 5 | ;; Free Software Foundation, Inc. | ||
| 5 | 6 | ||
| 6 | ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> | 7 | ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> |
| 7 | ;; Package: ediff | 8 | ;; Package: ediff |
| @@ -978,12 +979,11 @@ into icons, regardless of the window manager." | |||
| 978 | (set-specifier left-toolbar-width (list ctl-frame 0)) | 979 | (set-specifier left-toolbar-width (list ctl-frame 0)) |
| 979 | (set-specifier right-toolbar-width (list ctl-frame 0)))) | 980 | (set-specifier right-toolbar-width (list ctl-frame 0)))) |
| 980 | 981 | ||
| 981 | ;; Under OS/2 (emx) we have to call modify frame parameters twice, in order | 982 | ;; As a precaution, we call modify frame parameters twice, in |
| 982 | ;; to make sure that at least once we do it for non-iconified frame. If | 983 | ;; order to make sure that at least once we do it for |
| 983 | ;; appears that in the OS/2 port of Emacs, one can't modify frame | 984 | ;; a non-iconified frame. (It appears that in the Windows port of |
| 984 | ;; parameters of iconified frames. As a precaution, we do likewise for | 985 | ;; Emacs, one can't modify frame parameters of iconified frames.) |
| 985 | ;; windows-nt. | 986 | (if (eq system-type 'windows-nt) |
| 986 | (if (memq system-type '(emx windows-nt windows-95)) | ||
| 987 | (modify-frame-parameters ctl-frame adjusted-parameters)) | 987 | (modify-frame-parameters ctl-frame adjusted-parameters)) |
| 988 | 988 | ||
| 989 | ;; make or zap toolbar (if not requested) | 989 | ;; make or zap toolbar (if not requested) |
| @@ -1310,5 +1310,4 @@ It assumes that it is called from within the control buffer." | |||
| 1310 | ;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body)) | 1310 | ;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body)) |
| 1311 | ;; End: | 1311 | ;; End: |
| 1312 | 1312 | ||
| 1313 | ;; arch-tag: 73d9a5d7-eed7-4d9c-8b4b-21d5d78eb597 | ||
| 1314 | ;;; ediff-wind.el ends here | 1313 | ;;; ediff-wind.el ends here |