From: Tino Calancha <tino.calancha@gmail.com>
To: 31192@debbugs.gnu.org
Cc: lars ingebrigtsen <larsi@gnus.org>
Subject: bug#31192: 27.0.50; artist-mode throws a wrong type argument
Date: Tue, 17 Apr 2018 21:57:23 +0900 [thread overview]
Message-ID: <87in8qj8i4.fsf@gmail.com> (raw)
X-Debbugs-CC: Lars Ingebrigtsen <larsi@gnus.org>
After commit '(artist-mode): Warn about proportional fonts'
(36e5673753b985dee06b255be237dce9e96b0eb7)
emacs -batch -eval "(artist-mode)"
throws
Wrong type argument: font, unspecified
That causes two ibuffer-tests.el to fail:
(ibuffer-filter-inclusion-7, ibuffer-filter-inclusion-8)
--8<-----------------------------cut here---------------start------------->8---
commit 04f528b864490f22e773d185f2a4980b29306eb0
Author: Tino Calancha <tino.calancha@gmail.com>
Date: Tue Apr 17 21:34:25 2018 +0900
* lisp/textmodes/artist.el (artist-mode): Ensure we have a font
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 7c261f8d2d..e9ae6a4ce9 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -1402,8 +1402,9 @@ artist-mode
(t
;; Turn mode on
(artist-mode-init)
- (unless (font-get (face-attribute 'default :font) :spacing)
- (message "The default font isn't monospaced, so the drawings in this buffer may look odd")))))
+ (let ((font (face-attribute 'default :font)))
+ (when (and (fontp font) (not (font-get font :spacing)))
+ (message "The default font isn't monospaced, so the drawings in this buffer may look odd"))))))
;; Init and exit
(defun artist-mode-init ()
--8<-----------------------------cut here---------------end--------------->8---
In GNU Emacs 27.0.50 (build 2, x86_64-pc-linux-gnu, GTK+ Version 3.22.11)
of 2018-04-17
Repository revision: 003071346cdc914f28a8e8b3a8bf0c8f5f3b52dc
next reply other threads:[~2018-04-17 12:57 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-04-17 12:57 Tino Calancha [this message]
2018-04-17 13:00 ` bug#31192: 27.0.50; artist-mode throws a wrong type argument Lars Ingebrigtsen
2018-04-17 13:19 ` Tino Calancha
2018-04-17 13:22 ` Tino Calancha
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87in8qj8i4.fsf@gmail.com \
--to=tino.calancha@gmail.com \
--cc=31192@debbugs.gnu.org \
--cc=larsi@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).