diff options
| author | Michael Albinus | 2015-10-03 10:09:41 +0200 |
|---|---|---|
| committer | Michael Albinus | 2015-10-03 10:09:41 +0200 |
| commit | 40892b46f8219e4c7795038f91878f85eaeb7bc5 (patch) | |
| tree | c8010eea6965b5c0310114b75963d79e962648b9 | |
| parent | e1605252fd8ca904e83782a5bbfce15564ef7696 (diff) | |
| download | emacs-40892b46f8219e4c7795038f91878f85eaeb7bc5.tar.gz emacs-40892b46f8219e4c7795038f91878f85eaeb7bc5.zip | |
; Tramp: Suppress compiler warnings.
| -rw-r--r-- | lisp/net/trampver.el | 6 |
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. |