diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-05-30 05:30:58 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-05-30 05:30:58 +0000 |
commit | 86b79fbcbf878ab0f0e815ce34991304453538b9 (patch) | |
tree | 9c54888c791fe4cf9d3bb0d44a350d14d9b65663 /lisp/hippie-exp.el | |
parent | 0427eb81e6e6c10cc260392c9e48b6f04b0df759 (diff) | |
download | emacs-86b79fbcbf878ab0f0e815ce34991304453538b9.tar.gz |
(he-dabbrev-skip-space, he-dabbrev-as-symbol):
Move definitions up. Use defcustom.
Diffstat (limited to 'lisp/hippie-exp.el')
-rw-r--r-- | lisp/hippie-exp.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/hippie-exp.el b/lisp/hippie-exp.el index bc87eab2688..dfb36f37f43 100644 --- a/lisp/hippie-exp.el +++ b/lisp/hippie-exp.el @@ -161,6 +161,16 @@ "Expand text trying various ways to find its expansion." :group 'abbrev) +(defcustom he-dabbrev-skip-space nil + "Non-nil means tolerate trailing spaces in the abbreviation to expand." + :group hippie-expand + :type 'boolean) + +(defcustom he-dabbrev-as-symbol t + "Non-nil means expand as symbols, i.e. syntax `_' is considered a letter." + :group hippie-expand + :type 'boolean) + (defvar he-num -1) (defvar he-string-beg (make-marker)) @@ -1012,12 +1022,6 @@ string). It returns t if a new expansion is found, nil otherwise." (setq result nil))) ; ignore if bad prefix or already in table result)) -(defvar he-dabbrev-skip-space () - "Non-NIL means tolerate trailing spaces in the abbreviation to expand.") - -(defvar he-dabbrev-as-symbol t - "Non-NIL means expand as symbols, i.e. syntax '_' is considered a letter.") - (defun he-dabbrev-beg () (let ((op (point))) (save-excursion |