Lint comments

eldoc-frame.el

@@ -1,16 +1,16 @@
 ;;; eldoc-frame.el --- Display eldoc documentation in child frame -*- lexical-binding: t; -*-
-
+;;
 ;; Author: Jessie Hildebrandt <jessieh@jessieh.net>
 ;;         Yuan Fu <casouri@gmail.com>
 ;; Homepage: https://git.tty.dog/jessieh/eldoc-frame
-;; Keywords: eldoc
+;; Keywords: docs
 ;; Version: 1.0.0
 ;; Package-Requires: ((emacs "28.1"))
-
+;;
 ;; Forked from eldoc-box:
 ;; https://github.com/casouri/eldoc-box
 ;; eldoc-box Copyright (C) 2018 Yuan Fu
-
+;;
 ;; This file is not part of GNU Emacs.
 
 ;;; Commentary:
@@ -213,9 +213,10 @@ All functions are run with the eldoc child frame selected."
 (defun eldoc-frame--remove-hr ()
   "Remove horizontal rules from the current buffer."
   (goto-char (point-min))
-  (while-let ((prop (text-property-search-forward 'markdown-hr)))
-    (goto-char (prop-match-beginning prop))
-    (delete-char (- (prop-match-end prop) (prop-match-beginning prop)))))
+  (let ((prop))
+    (while (setq prop (text-property-search-forward 'markdown-hr))
+      (goto-char (prop-match-beginning prop))
+      (delete-char (- (prop-match-end prop) (prop-match-beginning prop))))))
 
 (defun eldoc-frame--remove-gaps ()
   "Truncate groups of two-or-more newlines from the current buffer."
@@ -497,8 +498,8 @@ reused. Otherwise, a new frame is created by `eldoc-frame--create-child-frame'."
 (defvar-local eldoc-frame--old-eldoc-functions nil
   "The original buffer-local value of ‘eldoc-display-functions’.")
 
-(defvar-keymap eldoc-frame-mode-map
-  :doc "Keymap used when `eldoc-frame-mode' is active.")
+(defvar eldoc-frame-mode-map (make-sparse-keymap)
+  "Keymap used when `eldoc-frame-mode' is active.")
 
 ;; ---------------------------------- ;;
 ;; Activation