[elpa] externals/modus-operandi-theme 12f7b3b 083/153: Make Helm symlink underline effect optional

[Stefan Monnier]

branch: externals/modus-operandi-theme
commit 12f7b3bebf7e2c2a285dc5ef0fe88074d97a0322
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make Helm symlink underline effect optional
    
    This concerns the new user option to remove underlines from links.  See
    commit be587b452.
    
    The current addition is in response to further feedback in issue 94:
    https://gitlab.com/protesilaos/modus-themes/-/issues/94
---
 modus-operandi-theme.el | 4 ++--
 modus-vivendi-theme.el  | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index c7a3dfd..4d47456 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -2612,11 +2612,11 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(helm-ff-directory ((,class :inherit helm-buffer-directory)))
    `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other)))
    `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt 
:foreground ,fg-alt)))
-   `(helm-ff-dotted-symlink-directory ((,class :inherit 
helm-ff-dotted-directory :underline t)))
+   `(helm-ff-dotted-symlink-directory ((,class :inherit (button 
helm-ff-dotted-directory))))
    `(helm-ff-executable ((,class :foreground ,magenta-alt)))
    `(helm-ff-file ((,class :foreground ,fg-main)))
    `(helm-ff-file-extension ((,class :foreground ,fg-special-warm)))
-   `(helm-ff-invalid-symlink ((,class :foreground ,red :underline t)))
+   `(helm-ff-invalid-symlink ((,class :inherit button :foreground ,red)))
    `(helm-ff-pipe ((,class ,@(modus-operandi-theme-extra-completions
                               'modus-theme-refine-magenta
                               'modus-theme-subtle-magenta
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index 2f3809e..10447fa 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -2612,11 +2612,11 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(helm-ff-directory ((,class :inherit helm-buffer-directory)))
    `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other)))
    `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt 
:foreground ,fg-alt)))
-   `(helm-ff-dotted-symlink-directory ((,class :inherit 
helm-ff-dotted-directory :underline t)))
+   `(helm-ff-dotted-symlink-directory ((,class :inherit (button 
helm-ff-dotted-directory))))
    `(helm-ff-executable ((,class :foreground ,magenta-alt)))
    `(helm-ff-file ((,class :foreground ,fg-main)))
    `(helm-ff-file-extension ((,class :foreground ,fg-special-warm)))
-   `(helm-ff-invalid-symlink ((,class :foreground ,red :underline t)))
+   `(helm-ff-invalid-symlink ((,class :inherit button :foreground ,red)))
    `(helm-ff-pipe ((,class ,@(modus-vivendi-theme-extra-completions
                               'modus-theme-refine-magenta
                               'modus-theme-subtle-magenta