- (local-set-key "!" 'self-insert-command)
- (local-set-key "&" 'self-insert-command)
- (local-set-key "%" 'self-insert-command)
- (local-set-key "?" 'self-insert-command)
- (local-set-key "=" 'self-insert-command)
- (local-set-key "^" 'self-insert-command))
+ (setq-local completion-separator-chars
+ (cl-set-difference completion-separator-chars
+ (append "!&%?=^" nil))))