From: Andrew Whatson <whatson@gmail.com>
Date: Sat, 10 Oct 2020 08:13:26 +0000 (+0200)
Subject: * Fix typo name plus make error homogeneous in `comp-trampoline-compile'
X-Git-Tag: emacs-28.0.90~2727^2~383
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85450f03be6cbb3e09964ce62e1f63875f0848a3;p=emacs.git

* Fix typo name plus make error homogeneous in `comp-trampoline-compile'

	* lisp/emacs-lisp/comp.el (comp-trampoline-compile): Fix typo
	renaming `comp-tampoline-compile' -> `comp-trampoline-compile'.
	Change error to be consistent.
	(comp-subr-trampoline-install): Use `comp-trampoline-compile'.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 763d44a23e1..0445fc085e1 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2580,7 +2580,7 @@ Return the its filename if found or nil otherwise."
    when (file-exists-p filename)
      do (cl-return filename)))
 
-(defun comp-tampoline-compile (subr-name)
+(defun comp-trampoline-compile (subr-name)
   "Synthesize and compile a trampoline for SUBR-NAME and return its filename."
   (let ((trampoline-sym (comp-trampoline-sym subr-name))
         (lambda-list (comp-make-lambda-list-from-subr
@@ -2610,7 +2610,7 @@ Return the its filename if found or nil otherwise."
                        comp-native-version-dir))
       when (file-writable-p f)
         do (cl-return f)
-      finally (error "Can't find a writable directory in \
+      finally (error "Cannot find suitable directory for output in \
 `comp-eln-load-path'")))))
 
 ;;;###autoload
@@ -2621,7 +2621,7 @@ Return the its filename if found or nil otherwise."
     (let ((trampoline-sym (comp-trampoline-sym subr-name)))
       (cl-assert (subr-primitive-p (symbol-function subr-name)))
       (load (or (comp-search-trampoline subr-name)
-                (comp-tampoline-compile subr-name))
+                (comp-trampoline-compile subr-name))
             nil t)
       (cl-assert
        (subr-native-elisp-p (symbol-function trampoline-sym)))