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: docs
+;; Keywords: eldoc
 ;; 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,10 +213,9 @@ 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))
-  (let ((prop))
+  (while-let ((prop (text-property-search-forward 'markdown-hr)))
-    (while (setq prop (text-property-search-forward 'markdown-hr))
+    (goto-char (prop-match-beginning prop))
-      (goto-char (prop-match-beginning prop))
+    (delete-char (- (prop-match-end prop) (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."
@@ -498,8 +497,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 eldoc-frame-mode-map (make-sparse-keymap)
+(defvar-keymap eldoc-frame-mode-map
-  "Keymap used when `eldoc-frame-mode' is active.")
+  :doc "Keymap used when `eldoc-frame-mode' is active.")
 
 ;; ---------------------------------- ;;
 ;; Activation