Commit 073ca75b authored by Juri Linkov's avatar Juri Linkov
Browse files

* lisp/textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate):

* lisp/progmodes/flymake.el (flymake-errline, flymake-warnline):
Use underline style wave on terminals that support it. 

* src/xfaces.c (tty_supports_face_attributes_p): Return 0 for the case
of (supports :underline (:style wave)).

Fixes: debbugs:13000
parent 4bdc3526
......@@ -205,6 +205,9 @@ property using the supplied face spec.
*** Face specs set via Custom themes now replace the `defface' spec
rather than inheriting from it (as do face specs set via Customize).
*** New face characteristic (supports :underline (:style wave))
specifies whether or not the terminal can display a wavy line.
** time-to-seconds is not obsolete any more.
** New function special-form-p.
** Docstrings can be made dynamic by adding a `dynamic-docstring-function'
......
2013-01-08 Juri Linkov <juri@jurta.org>
* textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate):
* progmodes/flymake.el (flymake-errline, flymake-warnline):
Use underline style wave on terminals that support it. (Bug#13000)
2013-01-08 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/pcase.el (pcase--split-equal): Also take advantage if
......
......@@ -844,13 +844,21 @@ Return t if it has at least one flymake overlay, nil if no overlay."
has-flymake-overlays))
(defface flymake-errline
'((t :inherit error))
'((((supports :underline (:style wave)))
:underline (:style wave :color "Red1"))
(t
:inherit error))
"Face used for marking error lines."
:version "24.4"
:group 'flymake)
(defface flymake-warnline
'((t :inherit warning))
'((((supports :underline (:style wave)))
:underline (:style wave :color "DarkOrange"))
(t
:inherit warning))
"Face used for marking warning lines."
:version "24.4"
:group 'flymake)
(defun flymake-highlight-line (line-no line-err-info-list)
......
......@@ -445,13 +445,23 @@ like <img alt=\"Some thing.\">."
;;*---------------------------------------------------------------------*/
;;* Highlighting */
;;*---------------------------------------------------------------------*/
(defface flyspell-incorrect '((t :underline t :inherit error))
(defface flyspell-incorrect
'((((supports :underline (:style wave)))
:underline (:style wave :color "Red1"))
(t
:underline t :inherit error))
"Flyspell face for misspelled words."
:version "24.4"
:group 'flyspell)
(defface flyspell-duplicate '((t :underline t :inherit warning))
(defface flyspell-duplicate
'((((supports :underline (:style wave)))
:underline (:style wave :color "DarkOrange"))
(t
:underline t :inherit warning))
"Flyspell face for words that appear twice in a row.
See also `flyspell-duplicate-distance'."
:version "24.4"
:group 'flyspell)
(defvar flyspell-overlay nil)
......
2013-01-08 Juri Linkov <juri@jurta.org>
* xfaces.c (tty_supports_face_attributes_p): Return 0 for the case
of (supports :underline (:style wave)). (Bug#13000)
2013-01-08 Aaron S. Hawley <aaron.s.hawley@gmail.com>
* undo.c (Fprimitive_undo): Move to simple.el.
......
......@@ -4877,6 +4877,8 @@ tty_supports_face_attributes_p (struct frame *f,
{
if (STRINGP (val))
return 0; /* ttys can't use colored underlines */
else if (EQ (CAR_SAFE (val), QCstyle) && EQ (CAR_SAFE (CDR_SAFE (val)), Qwave))
return 0; /* ttys can't use wave underlines */
else if (face_attr_equal_p (val, def_attrs[LFACE_UNDERLINE_INDEX]))
return 0; /* same as default */
else
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment