mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

Fix 2010-11-22 change to diff.el.

Browse Source 
* vc/diff.el (diff-better-file-name): Function deleted.
abbreviating file names causes problems with shell-quote-argument.
(diff-no-select): Just use expand-file-name.
This commit is contained in:
Chong Yidong 2010-12-20 08:20:25 +08:00
parent 949752705e
commit f48fdaad21
2 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,7 +1,7 @@
2010-12-20 Chong Yidong <cyd@stupidchicken.com>
* vc/diff.el (diff-better-file-name): Function deleted;
abbreviating file name creates problems with shell-quote-argument.
* vc/diff.el (diff-better-file-name): Function deleted.
abbreviating file names causes problems with shell-quote-argument.
(diff-no-select): Just use expand-file-name.
* tool-bar.el (tool-bar--image-expression): New function.

12
lisp/vc/diff.el
View File

@ -110,18 +110,10 @@ specified in `diff-switches' are passed to the diff command."
tempfile))
(file-local-copy file-or-buf)))
(defun diff-better-file-name (file)
(if (bufferp file) file
(let ((rel (file-relative-name file))
(abbr (abbreviate-file-name (expand-file-name file))))
(if (< (length abbr) (length rel))
abbr
rel))))
(defun diff-no-select (old new &optional switches no-async buf)
;; Noninteractive helper for creating and reverting diff buffers
(setq new (diff-better-file-name new)
old (diff-better-file-name old))
(unless (bufferp new) (setq new (expand-file-name new)))
(unless (bufferp old) (setq old (expand-file-name old)))
(or switches (setq switches diff-switches)) ; If not specified, use default.
(unless (listp switches) (setq switches (list switches)))
(or buf (setq buf (get-buffer-create "*Diff*")))