From 0f02ac7a9d94f33a8a96c6840bcabf25645f3669 Mon Sep 17 00:00:00 2001 Message-Id: <0f02ac7a9d94f33a8a96c6840bcabf25645f3669.1746540550.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 23 Jun 2024 01:04:22 +0100 Subject: [PATCH] el/dot-emacs.el, dot/gnus.el: Handle character widths correctly. Organization: Straylight/Edgeware From: Mark Wooding --- dot/gnus.el | 4 ++++ el/dot-emacs.el | 4 ++++ 2 files changed, 8 insertions(+) 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. -- [mdw]