[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 9eda89da55 1/2: Merge from origin/emacs-28
From: |
Stefan Kangas |
Subject: |
master 9eda89da55 1/2: Merge from origin/emacs-28 |
Date: |
Tue, 4 Oct 2022 13:23:37 -0400 (EDT) |
branch: master
commit 9eda89da55d9b635209ec78f88b519e989d20718
Merge: 9107176511 78c262e1c2
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
Merge from origin/emacs-28
78c262e1c2 ; * lisp/progmodes/glasses.el (glasses-face): Expand the d...
---
lisp/progmodes/glasses.el | 16 +++++++++++++---
1 file changed, 13 insertions(+), 3 deletions(-)
diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el
index c7b0587336..c0bd6f220c 100644
--- a/lisp/progmodes/glasses.el
+++ b/lisp/progmodes/glasses.el
@@ -84,12 +84,22 @@ performed."
(defcustom glasses-face nil
- "Face to be put on capitals of an identifier looked through glasses.
-If it is nil, no face is placed at the capitalized letter.
+ "Face to use for capital letters of identifiers where separators were added.
+If it is nil, the capital letters will display with their usual faces.
For example, you can set `glasses-separator' to an empty string and
`glasses-face' to `bold'. Then unreadable identifiers will have no separators,
-but will have their capitals in bold."
+but will have their capitals in bold.
+
+As another example, you may wish to have a clear visual indication of
+where the `glasses-separator' string was inserted by `glasses-mode',
+as opposed to where they are part of the original identifiers. This
+can be useful when the program source code uses mixed CamelCase and
+normal_readable identifiers, and you want to know which underscores
+were added by this mode. Customizing this face to something like `bold'
+will show the capital letters following the inserted `glasses-separator'
+in a distinct face. Note that you must use `customize-variable' for
+changing the face; just assigning the value has no effect."
:type '(choice (const :tag "None" nil) face)
:set 'glasses-custom-set
:initialize 'custom-initialize-default)