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 | 86414c3ca0a38442d0df120d5573e756e7a49044 (patch) | |
tree | 050e8465d9713041301d4d75080a8272f4a3f786 /lisp/hippie-exp.el | |
parent | 30178dde79a3311bd61bf9ba4c41f6cdd7ea5706 (diff) | |
download | emacs-86414c3ca0a38442d0df120d5573e756e7a49044.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 |