Remove debug stuff from mozc-posframe.el
This commit is contained in:
@@ -21,7 +21,7 @@
|
||||
"Update the candidate window using posframes.
|
||||
CANDIDATES is the list of candidates."
|
||||
(let ((contents (mozc-cand-overlay-make-contents candidates))
|
||||
(position (posn-point mozc-preedit-posn-origin))
|
||||
(position (point))
|
||||
space-idxs
|
||||
right-sizes)
|
||||
(with-current-buffer (get-buffer-create my/-mozc-cand-posframe-name)
|
||||
@@ -41,10 +41,8 @@ CANDIDATES is the list of candidates."
|
||||
(put-text-property start (point) 'face face)
|
||||
(insert "\n")))
|
||||
(let ((width (car (buffer-text-pixel-size))))
|
||||
(message "%s" width)
|
||||
(cl-loop for pos in space-idxs
|
||||
for right-width in right-sizes
|
||||
do (message "%s" (- width right-width))
|
||||
do (put-text-property
|
||||
pos (1+ pos)
|
||||
'display `(space :align-to (,(- width right-width))))))
|
||||
|
||||
Reference in New Issue
Block a user