diff options
| author | Robert Weiner <rsw@gnu.org> | 2019-06-25 14:08:49 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-25 14:53:52 +0200 |
| commit | e9b05221abc7c8b440072d6600691017ffda5015 (patch) | |
| tree | 9555d92e6385b8d757d124ab0f01f6ecb2d83fb4 /lisp/cus-edit.el | |
| parent | 14fc8a108ba19c8d773df6de42f413be551c3025 (diff) | |
| download | emacs-e9b05221abc7c8b440072d6600691017ffda5015.tar.gz | |
Unlispify even more in custom-unlispify-menu-entry
* lisp/cus-edit.el (custom-unlispify-menu-entry): Also allow : and
/ as separators in symbols when making the symbols look more
human-readable (bug#23986).
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 5fd93224f8a..0b9fb27a737 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -552,7 +552,11 @@ value unless you are sure you know what it does." (setq prefixes nil) (delete-region (point-min) (point))) (setq prefixes (cdr prefixes)))))) - (subst-char-in-region (point-min) (point-max) ?- ?\s t) + (goto-char (point-min)) + ;; Translate characters commonly used as delimiters between + ;; words in symbols into space; e.g. foo:bar-zot/thing. + (while (re-search-forward "[-:/]+" nil t) + (replace-match " ")) (capitalize-region (point-min) (point-max)) (unless no-suffix (goto-char (point-max)) |