mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

; Tramp: Suppress compiler warnings.

Browse Source
This commit is contained in:
Michael Albinus 2015-10-03 10:09:41 +02:00
parent e1605252fd
commit 40892b46f8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/net/trampver.el
View File

@ -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.