diff options
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)) |