diff options
| author | Glenn Morris | 2012-01-05 18:36:41 -0500 |
|---|---|---|
| committer | Glenn Morris | 2012-01-05 18:36:41 -0500 |
| commit | afbb793039d5777d3cac6af9e00f27139ddf8dd7 (patch) | |
| tree | 0d3238a1bb41fc51478e18ed80c29007c441a9e8 | |
| parent | d660637a805e793fc431c68b47af90994465a547 (diff) | |
| download | emacs-afbb793039d5777d3cac6af9e00f27139ddf8dd7.tar.gz emacs-afbb793039d5777d3cac6af9e00f27139ddf8dd7.zip | |
eshell fix for change in return value of `diff' command (bug#10420)
* lisp/eshell/em-unix.el (diff-no-select): Autoload it.
(eshell/diff): Use diff-no-select.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/eshell/em-unix.el | 7 |
2 files changed, 10 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d2ee593c389..e4d4062668d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-01-05 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * eshell/em-unix.el (diff-no-select): Autoload it. | ||
| 4 | (eshell/diff): Use diff-no-select. (Bug#10420) | ||
| 5 | |||
| 1 | 2012-01-05 Chong Yidong <cyd@gnu.org> | 6 | 2012-01-05 Chong Yidong <cyd@gnu.org> |
| 2 | 7 | ||
| 3 | * shell.el (shell-dynamic-complete-functions): Revert last change. | 8 | * shell.el (shell-dynamic-complete-functions): Revert last change. |
diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el index 21deccb8093..f24180b5c7f 100644 --- a/lisp/eshell/em-unix.el +++ b/lisp/eshell/em-unix.el | |||
| @@ -965,6 +965,8 @@ Show wall-clock time elapsed during execution of COMMAND.") | |||
| 965 | ((string-match "[^[:blank:]]" string) string) | 965 | ((string-match "[^[:blank:]]" string) string) |
| 966 | (nil))) | 966 | (nil))) |
| 967 | 967 | ||
| 968 | (autoload 'diff-no-select "diff") | ||
| 969 | |||
| 968 | (defun eshell/diff (&rest args) | 970 | (defun eshell/diff (&rest args) |
| 969 | "Alias \"diff\" to call Emacs `diff' function." | 971 | "Alias \"diff\" to call Emacs `diff' function." |
| 970 | (let ((orig-args (eshell-stringify-list (eshell-flatten-list args)))) | 972 | (let ((orig-args (eshell-stringify-list (eshell-flatten-list args)))) |
| @@ -986,8 +988,9 @@ Show wall-clock time elapsed during execution of COMMAND.") | |||
| 986 | (setcdr (last args 3) nil)) | 988 | (setcdr (last args 3) nil)) |
| 987 | (with-current-buffer | 989 | (with-current-buffer |
| 988 | (condition-case err | 990 | (condition-case err |
| 989 | (diff old new | 991 | (diff-no-select |
| 990 | (nil-blank-string (eshell-flatten-and-stringify args))) | 992 | old new |
| 993 | (nil-blank-string (eshell-flatten-and-stringify args))) | ||
| 991 | (error | 994 | (error |
| 992 | (throw 'eshell-replace-command | 995 | (throw 'eshell-replace-command |
| 993 | (eshell-parse-command "*diff" orig-args)))) | 996 | (eshell-parse-command "*diff" orig-args)))) |