aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2012-01-05 18:36:41 -0500
committerGlenn Morris2012-01-05 18:36:41 -0500
commitafbb793039d5777d3cac6af9e00f27139ddf8dd7 (patch)
tree0d3238a1bb41fc51478e18ed80c29007c441a9e8
parentd660637a805e793fc431c68b47af90994465a547 (diff)
downloademacs-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/ChangeLog5
-rw-r--r--lisp/eshell/em-unix.el7
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 @@
12012-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
12012-01-05 Chong Yidong <cyd@gnu.org> 62012-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))))