# HG changeset patch # User Richard M. Stallman # Date 864970258 0 # Node ID 1a3d130e356b0aec74e24fa4f262b4b93c9e2481 # Parent 354ae98947b53e26cb67b4c83fdebfc996c76e05 (he-dabbrev-skip-space, he-dabbrev-as-symbol): Move definitions up. Use defcustom. diff -r 354ae98947b5 -r 1a3d130e356b lisp/hippie-exp.el --- a/lisp/hippie-exp.el Fri May 30 05:15:48 1997 +0000 +++ b/lisp/hippie-exp.el Fri May 30 05:30:58 1997 +0000 @@ -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 @@ (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