el/dot-emacs.el, dot/gnus.el: Handle character widths correctly.

diff --git a/dot/gnus.el b/dot/gnus.el
index ff2210eadb694e1a20ac0a3e3cbb8e3c68b1fd28..77131a2688de67fbd50e07de21d2870c2a45ac5f 100644 (file)
--- 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)
 
 ;; 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)
 ;; 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 65069672b567158247d4bed21e9f0e8892e74454..879abdb3f51be48832047f3f1f1af3923c66d8bc 100644 (file)
--- 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)))))))
 
          (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.
 
 ;;;--------------------------------------------------------------------------
 ;;; Miscellaneous bug fixes.