diff options
| author | Lars Ingebrigtsen | 2022-09-26 13:28:30 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-09-26 13:28:30 +0200 |
| commit | e2f2f6b9e869e8cf2714b35d5645fbbbcf2975de (patch) | |
| tree | 6d5170b92bc0ceb4520fadf2a675f2f2e302f7d0 | |
| parent | aca4d7cfc40272065de15980698770f939068b67 (diff) | |
| download | emacs-e2f2f6b9e869e8cf2714b35d5645fbbbcf2975de.tar.gz emacs-e2f2f6b9e869e8cf2714b35d5645fbbbcf2975de.zip | |
Fix percentage width computation in vtable
* lisp/emacs-lisp/vtable.el (vtable--compute-width): Fix
percentage computation (bug#58067).
| -rw-r--r-- | lisp/emacs-lisp/vtable.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el index 61265c97c28..9bdf90bf1d6 100644 --- a/lisp/emacs-lisp/vtable.el +++ b/lisp/emacs-lisp/vtable.el | |||
| @@ -770,7 +770,8 @@ If NEXT, do the next column." | |||
| 770 | ((string-match "\\([0-9.]+\\)px" spec) | 770 | ((string-match "\\([0-9.]+\\)px" spec) |
| 771 | (string-to-number (match-string 1 spec))) | 771 | (string-to-number (match-string 1 spec))) |
| 772 | ((string-match "\\([0-9.]+\\)%" spec) | 772 | ((string-match "\\([0-9.]+\\)%" spec) |
| 773 | (* (string-to-number (match-string 1 spec)) (window-width nil t))) | 773 | (/ (* (string-to-number (match-string 1 spec)) (window-width nil t)) |
| 774 | 100)) | ||
| 774 | (t | 775 | (t |
| 775 | (error "Invalid spec: %s" spec)))) | 776 | (error "Invalid spec: %s" spec)))) |
| 776 | 777 | ||