From: Mark Wooding Date: Sun, 23 Jun 2024 00:04:22 +0000 (+0100) Subject: el/dot-emacs.el, dot/gnus.el: Handle character widths correctly. X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/0f02ac7a9d94f33a8a96c6840bcabf25645f3669?ds=sidebyside el/dot-emacs.el, dot/gnus.el: Handle character widths correctly. --- diff --git a/dot/gnus.el b/dot/gnus.el index ff2210e..77131a2 100644 --- a/dot/gnus.el +++ b/dot/gnus.el @@ -34,6 +34,10 @@ (setq mail-source-movemail-program "~/bin/movemail-hack") ;; Don't force use of a full window. (setq gnus-use-full-window nil) +;; Honour character widths correctly. Otherwise the screen gets properly +;; messed up. +(setq gnus-use-correct-string-widths t) + ;; Display a slrn-like tree view in the summary window. (setq gnus-use-trees nil) (setq gnus-summary-make-false-root 'dummy) diff --git a/el/dot-emacs.el b/el/dot-emacs.el index 6506967..879abdb 100644 --- a/el/dot-emacs.el +++ b/el/dot-emacs.el @@ -238,6 +238,10 @@ (defadvice rename-file (after mdw-rename-buffers (from to &optional forcep) (with-current-buffer buffer (set-visited-file-name to nil t))))))) +;; Character width table hacking. +(dolist (ch '(?🙀)) + (aset char-width-table ch 2)) + ;;;-------------------------------------------------------------------------- ;;; Miscellaneous bug fixes.