Lines Matching defs:original
73 defined by `glasses-original-separator'. If you don't want to add missing
75 replace existent separators, set `glasses-original-separator' to an empty
83 (defcustom glasses-original-separator "_"
87 If `glasses-original-separator' is an empty string, no such display change is
233 (when (and (not (string= glasses-original-separator glasses-separator))
234 (not (string= glasses-original-separator "")))
236 (let ((original-regexp (regexp-quote glasses-original-separator)))
239 original-regexp)
242 (while (looking-at original-regexp)
280 (unless (string= glasses-separator glasses-original-separator)
285 (replace-match glasses-original-separator nil nil nil 1)