branch: elpa/gnuplot
commit 7dd9346dcec79bcc4bfdcdfd8ba80969ee667032
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Remove gnuplot-prompt-face
Emacs highlights the prompt with comint-highlight-prompt
---
gnuplot-gui.el | 15 ++++++++++-----
gnuplot.el | 13 -------------
2 files changed, 10 insertions(+), 18 deletions(-)
diff --git a/gnuplot-gui.el b/gnuplot-gui.el
index c4a607fc9b..e0e23c5502 100644
--- a/gnuplot-gui.el
+++ b/gnuplot-gui.el
@@ -1183,19 +1183,24 @@ into the buffer. TYPE is the object whose arguments
are being set."
(gnuplot-gui-make-frame
option (cdr (assoc option gnuplot-gui-all-types)) save-frame) )
+(defgroup gnuplot-gui-faces nil
+ "Text faces used by `gnuplot-gui'."
+ :prefix "gnuplot-gui-"
+ :group 'gnuplot-gui)
+
(defface gnuplot-gui-error-face '((((class color) (background light))
(:foreground "grey30"))
(((class color) (background dark))
(:foreground "grey70")))
"Face used to display message about unknown widget types."
- :group 'gnuplot-faces)
+ :group 'gnuplot-gui-faces)
(defface gnuplot-gui-flat-text-face '((((class color) (background light))
(:foreground "MediumBlue"))
(((class color) (background dark))
(:foreground "LightSteelBlue")))
"Face used to display message about unknown widget types."
- :group 'gnuplot-faces)
+ :group 'gnuplot-gui-faces)
(defun gnuplot-gui-make-frame (item alist &optional save-frame)
"Open the frame and populate it with widgets.
@@ -1375,7 +1380,7 @@ SAVE-FRAME is non-nil when the widgets are being reset."
(t
(:italic t)))
"Face used for menu-buttons."
- :group 'gnuplot-faces)
+ :group 'gnuplot-gui-faces)
(defface gnuplot-gui-button-face '((((class color) (background light))
(:bold t :foreground "sienna"))
(((class color) (background dark))
@@ -1383,7 +1388,7 @@ SAVE-FRAME is non-nil when the widgets are being reset."
(t
(:italic t)))
"Face used for push-buttons."
- :group 'gnuplot-faces)
+ :group 'gnuplot-gui-faces)
(defface gnuplot-gui-labels-face '((((class color) (background light))
(:bold t :foreground "darkslateblue"))
(((class color) (background dark))
@@ -1391,7 +1396,7 @@ SAVE-FRAME is non-nil when the widgets are being reset."
(t
(:italic t)))
"Face used for insert and delete button in the labels widget."
- :group 'gnuplot-faces)
+ :group 'gnuplot-gui-faces)
(defun gnuplot-gui-menu-choice (item default list &optional starred)
"Create a menu widget for the Gnuplot GUI.
diff --git a/gnuplot.el b/gnuplot.el
index d7e0afa6a7..85db15dc7c 100644
--- a/gnuplot.el
+++ b/gnuplot.el
@@ -326,18 +326,6 @@ non-nil."
:initialize #'custom-initialize-default
:set #'gnuplot--set-display-mode)
-(defgroup gnuplot-faces nil
- "Text faces used by `gnuplot-mode'."
- :prefix "gnuplot-"
- :group 'gnuplot)
-
-(defface gnuplot-prompt-face '((((class color))
- (:foreground "firebrick"))
- (t
- (:bold t :underline t)))
- "Face used for the prompt in the gnuplot process buffer."
- :group 'gnuplot-faces)
-
;;; --- key bindings and menus
@@ -1353,7 +1341,6 @@ STRING is the text as originally inserted in the comint
buffer."
(setq e (point))
(put-text-property b e 'rear-nonsticky '(read-only intangible
face))
(put-text-property b e 'intangible t)
- (put-text-property b e 'face 'gnuplot-prompt-face)
;;(put-text-property b e 'read-only t)
)))))
