diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2015-10-03 10:09:41 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2015-10-03 10:09:41 +0200 |
| commit | 40892b46f8219e4c7795038f91878f85eaeb7bc5 (patch) | |
| tree | c8010eea6965b5c0310114b75963d79e962648b9 /lisp/net/trampver.el | |
| parent | e1605252fd8ca904e83782a5bbfce15564ef7696 (diff) | |
| download | emacs-40892b46f8219e4c7795038f91878f85eaeb7bc5.tar.gz | |
; Tramp: Suppress compiler warnings.
Diffstat (limited to 'lisp/net/trampver.el')
| -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 @@ "Try to return as a string the repository revision of the Tramp sources." (unless (featurep 'xemacs) (let ((dir - (funcall 'locate-dominating-file (locate-library "tramp") ".git"))) + (funcall + (intern "locate-dominating-file") (locate-library "tramp") ".git"))) (when dir (with-temp-buffer (let ((default-directory (file-name-as-directory dir))) @@ -50,7 +51,8 @@ (ignore-errors (call-process "git" nil '(t nil) nil "rev-parse" "HEAD"))) (not (zerop (buffer-size))) - (tramp-compat-replace-regexp-in-string + (funcall + (intern "tramp-compat-replace-regexp-in-string") "\n" "" (buffer-string))))))))) ;; Check for (X)Emacs version. |