aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2015-10-03 10:09:41 +0200
committerMichael Albinus2015-10-03 10:09:41 +0200
commit40892b46f8219e4c7795038f91878f85eaeb7bc5 (patch)
treec8010eea6965b5c0310114b75963d79e962648b9
parente1605252fd8ca904e83782a5bbfce15564ef7696 (diff)
downloademacs-40892b46f8219e4c7795038f91878f85eaeb7bc5.tar.gz
emacs-40892b46f8219e4c7795038f91878f85eaeb7bc5.zip
; Tramp: Suppress compiler warnings.
-rw-r--r--lisp/net/trampver.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el
index ab671204e32..bba27e39469 100644
--- a/lisp/net/trampver.el
+++ b/lisp/net/trampver.el
@@ -42,7 +42,8 @@
42 "Try to return as a string the repository revision of the Tramp sources." 42 "Try to return as a string the repository revision of the Tramp sources."
43 (unless (featurep 'xemacs) 43 (unless (featurep 'xemacs)
44 (let ((dir 44 (let ((dir
45 (funcall 'locate-dominating-file (locate-library "tramp") ".git"))) 45 (funcall
46 (intern "locate-dominating-file") (locate-library "tramp") ".git")))
46 (when dir 47 (when dir
47 (with-temp-buffer 48 (with-temp-buffer
48 (let ((default-directory (file-name-as-directory dir))) 49 (let ((default-directory (file-name-as-directory dir)))
@@ -50,7 +51,8 @@
50 (ignore-errors 51 (ignore-errors
51 (call-process "git" nil '(t nil) nil "rev-parse" "HEAD"))) 52 (call-process "git" nil '(t nil) nil "rev-parse" "HEAD")))
52 (not (zerop (buffer-size))) 53 (not (zerop (buffer-size)))
53 (tramp-compat-replace-regexp-in-string 54 (funcall
55 (intern "tramp-compat-replace-regexp-in-string")
54 "\n" "" (buffer-string))))))))) 56 "\n" "" (buffer-string)))))))))
55 57
56;; Check for (X)Emacs version. 58;; Check for (X)Emacs version.