andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Unlispify even more in custom-unlispify-menu-entry

Browse source 
* 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).
This commit is contained in:
Robert Weiner 2019-06-25 14:08:49 +02:00 • committed by Lars Ingebrigtsen
parent 14fc8a108b
commit e9b05221ab
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/cus-edit.el
View file

@ -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))