Skip to content

Commit

Permalink
fix(help): Apply displayable char in help menu
Browse files Browse the repository at this point in the history
  • Loading branch information
jcs090218 committed Apr 1, 2023
1 parent 7e66774 commit e5ef043
Showing 1 changed file with 7 additions and 4 deletions.
11 changes: 7 additions & 4 deletions lisp/_prepare.el
Original file line number Diff line number Diff line change
Expand Up @@ -1209,7 +1209,7 @@ character."
"Make sure all keywords is displayable in STRING."
(let* ((string (eask--msg-char-displayable "" "v" string))
(string (eask--msg-char-displayable "" "X" string))
(string (eask--msg-char-displayable "💡" "?!" string)))
(string (eask--msg-char-displayable "💡" "<?>" string)))
string))

(defun eask--format-paint-kwds (msg &rest args)
Expand Down Expand Up @@ -1386,12 +1386,12 @@ character."
(while (not (eobp))
(forward-line 1)
(goto-char (line-beginning-position))
(insert " ")
(insert " ")
(goto-char (line-end-position))
(setq max-column (max (current-column) max-column)))
(eask-msg (concat "''" (spaces-string max-column) "''"))
(eask-msg (ansi-white (buffer-string)))
(eask-msg (concat "''" (spaces-string max-column) "'" "'"))))
(eask-msg (concat "''" (spaces-string max-column) "''"))))

(defun eask-help (command)
"Show COMMAND's help instruction."
Expand All @@ -1400,7 +1400,10 @@ character."
(if (file-exists-p help-file)
(with-temp-buffer
(insert-file-contents help-file)
(unless (string= (buffer-string) "")
(unless (string-empty-p (buffer-string))
(let ((buf-str (eask--msg-displayable-kwds (buffer-string))))
(erase-buffer)
(insert buf-str))
(eask--help-display)))
(eask-error "Help manual missig %s" help-file))))

Expand Down

0 comments on commit e5ef043

Please sign in to comment.