Permalink
Browse files

lispy-inline.el: Revert

`lispy-view-test' was broken by
ca8f298
  • Loading branch information...
1 parent 8e4f8c6 commit b635aee9b4f0d65b1add8f1293077f6623681ef7 @abo-abo committed Dec 25, 2016
Showing with 5 additions and 9 deletions.
  1. +5 −9 lispy-inline.el
View
@@ -230,7 +230,7 @@ Return t if at least one was deleted."
(setq lispy-hint-pos new-hint-pos)
(when (setq doc (lispy--docstring (lispy--current-function)))
(goto-char lispy-hint-pos)
- (lispy--show (string-trim-right doc))))))
+ (lispy--show (propertize doc 'face 'lispy-face-hint))))))
(error
(lispy--cleanup-overlay))))
@@ -330,14 +330,10 @@ Return t if at least one was deleted."
(defun lispy--join-pad (strs width)
"Join STRS padding each line with WIDTH spaces."
- (let* ((maxw (apply #'max (mapcar #'length strs)))
- (padding (make-string width ?\ ))
- (fstring (format "%%- %ds" maxw)))
- (mapconcat
- (lambda (x)
- (concat padding (propertize (format fstring x) 'face 'lispy-face-hint)))
- strs
- "\n")))
+ (let ((padding (make-string width ?\ )))
+ (mapconcat (lambda (x) (concat padding x))
+ strs
+ "\n")))
(defun lispy--show-fits-p (str)
"Return nil if window isn't large enough to display STR whole."

0 comments on commit b635aee

Please sign in to comment.