From: Richard M. Stallman Date: Fri, 30 May 1997 05:30:58 +0000 (+0000) Subject: (he-dabbrev-skip-space, he-dabbrev-as-symbol): X-Git-Tag: emacs-20.1~1908 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86414c3ca0a38442d0df120d5573e756e7a49044;p=emacs.git (he-dabbrev-skip-space, he-dabbrev-as-symbol): Move definitions up. Use defcustom. --- 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