emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 15:56:35 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

; Add new text for xdisp.c

Browse source 
* test/src/xdisp-tests.el (xdisp-test-format-mode-line): Add
another test for 'format-mode-line'.  (Bug#81313)
This commit is contained in:
Eli Zaretskii 2026-06-28 18:33:11 +03:00
parent 4d2701ecde
commit 10ae134ceb
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
test/src/xdisp-tests.el
View file

@ -196,6 +196,19 @@ int main () {
(text-properties-at
0
(format-mode-line '((:propertize "Hello!" face bold)) 'mode-line))
(list 'face '(bold mode-line) 'mode-line-elt-no 3))))
(list 'face '(bold mode-line) 'mode-line-elt-no 3)))
(with-temp-buffer
;; This test is due to Markus Triska <triska@metalevel.at>.
(let ((m1 (format-mode-line mode-line-format nil))
(m2 (format-mode-line mode-line-format 'default))
s1 s2)
(font-lock-mode 0)
(insert "\n")
(insert m1)
(setq s1 (window-text-pixel-size nil (line-beginning-position) (point)))
(insert "\n")
(insert m2)
(setq s2 (window-text-pixel-size nil (line-beginning-position) (point)))
(should (equal m1 m2)))))
;;; xdisp-tests.el ends here