Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove debug stuff from mozc-posframe.el

Browse Source
This commit is contained in:
Zander671
2026-07-21 17:23:35 -07:00
parent c7542dc27a
commit b13f4712dc
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
elisp/mozc-posframe.el
+1 -3
View File
@@ -21,7 +21,7 @@
"Update the candidate window using posframes. "Update the candidate window using posframes.
CANDIDATES is the list of candidates." CANDIDATES is the list of candidates."
(let ((contents (mozc-cand-overlay-make-contents candidates)) (let ((contents (mozc-cand-overlay-make-contents candidates))
(position (posn-point mozc-preedit-posn-origin)) (position (point))
space-idxs space-idxs
right-sizes) right-sizes)
(with-current-buffer (get-buffer-create my/-mozc-cand-posframe-name) (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) (put-text-property start (point) 'face face)
(insert "\n"))) (insert "\n")))
(let ((width (car (buffer-text-pixel-size)))) (let ((width (car (buffer-text-pixel-size))))
(message "%s" width)
(cl-loop for pos in space-idxs (cl-loop for pos in space-idxs
for right-width in right-sizes for right-width in right-sizes
do (message "%s" (- width right-width))
do (put-text-property do (put-text-property
pos (1+ pos) pos (1+ pos)
'display `(space :align-to (,(- width right-width)))))) 'display `(space :align-to (,(- width right-width))))))