scratch/eldoc-async 2a867d0 2/2: Require 'cl-lib only during compilation

[Jo�o T�vora]

branch: scratch/eldoc-async
commit 2a867d0d007b5d9d9462e344c67a2c70355e5a67
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Require 'cl-lib only during compilation
    
    * lisp/emacs-lisp/eldoc.el (eldoc-print-current-symbol-info): Use
    plain sort.
    (cl-lib): Require only during compilation.
---
 lisp/emacs-lisp/eldoc.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el
index 575a132..0ebf54b 100644
--- a/lisp/emacs-lisp/eldoc.el
+++ b/lisp/emacs-lisp/eldoc.el
@@ -47,7 +47,7 @@
 
 ;;; Code:
 
-(require 'cl-lib)
+(eval-when-compile (require 'cl-lib))
 
 (defgroup eldoc nil
   "Show function arglist or variable docstring in echo area."
@@ -565,7 +565,8 @@ documentation themselves."
                (display-doc ()
                 (eldoc--handle-docs
                  (mapcar #'cdr
-                         (cl-sort docs-registered #'< :key #'car))))
+                         (sort docs-registered
+                               (lambda (a b) (< (car a) (car b)))))))
                (make-callback (method)
                 (let ((pos (prog1 howmany (cl-incf howmany))))
                   (cl-ecase method