From e9feadee56f66d34bf4711ff792d537b3e1b9f64 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Thu, 4 May 2023 20:31:08 +0200 Subject: remove old var-pitch-mode code --- lisp/mastodon-toot.el | 10 ---------- lisp/mastodon.el | 4 +--- 2 files changed, 1 insertion(+), 13 deletions(-) diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index dd8d032..ec4a0d1 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -1701,8 +1701,6 @@ EDIT means we are editing an existing toot, not composing a new one." (point-marker)))) (switch-to-buffer-other-window buffer) (text-mode) - (when mastodon-toot--enable-proportional-fonts-compose-buffer - (variable-pitch-mode)) (mastodon-toot-mode t) (setq mastodon-toot--visibility (or (plist-get mastodon-profile-account-settings 'privacy) @@ -1764,14 +1762,6 @@ EDIT means we are editing an existing toot, not composing a new one." (lambda () (auto-fill-mode -1))) -;; scale fixed-pitch docs relative to any possible variable pitch scaling set: -(add-hook 'mastodon-toot-mode-hook - (lambda () - (when mastodon-toot--enable-proportional-fonts-compose-buffer - (let ((height (/ 1 (face-attribute 'variable-pitch :height)))) - (set-face-attribute 'mastodon-toot-docs-face nil - :height height))))) - (define-minor-mode mastodon-toot-mode "Minor mode to capture Mastodon toots." :keymap mastodon-toot-mode-map diff --git a/lisp/mastodon.el b/lisp/mastodon.el index f52579c..4662010 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -242,9 +242,7 @@ Use. e.g. \"%c\" for your locale's date and time format." "Face used for content warning.") (defface mastodon-toot-docs-face - `((t :inherit font-lock-comment-face - :height 1.0 - :family ,(face-attribute 'default :family))) + `((t :inherit font-lock-comment-face)) "Face used for documentation in toot compose buffer. If `mastodon-tl--enable-proportional-fonts' is changed, mastodon.el needs to be re-loaded for this to be correctly set.") -- cgit v1.2.3