From 86414c3ca0a38442d0df120d5573e756e7a49044 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 30 May 1997 05:30:58 +0000 Subject: [PATCH] (he-dabbrev-skip-space, he-dabbrev-as-symbol): Move definitions up. Use defcustom. --- lisp/hippie-exp.el | 16 ++++++++++------ 1 file 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 -- 2.39.5