aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman1997-05-30 05:30:58 +0000
committerRichard M. Stallman1997-05-30 05:30:58 +0000
commit86414c3ca0a38442d0df120d5573e756e7a49044 (patch)
tree050e8465d9713041301d4d75080a8272f4a3f786 /lisp
parent30178dde79a3311bd61bf9ba4c41f6cdd7ea5706 (diff)
downloademacs-86414c3ca0a38442d0df120d5573e756e7a49044.tar.gz
emacs-86414c3ca0a38442d0df120d5573e756e7a49044.zip
(he-dabbrev-skip-space, he-dabbrev-as-symbol):
Move definitions up. Use defcustom.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/hippie-exp.el16
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 @@
161 "Expand text trying various ways to find its expansion." 161 "Expand text trying various ways to find its expansion."
162 :group 'abbrev) 162 :group 'abbrev)
163 163
164(defcustom he-dabbrev-skip-space nil
165 "Non-nil means tolerate trailing spaces in the abbreviation to expand."
166 :group hippie-expand
167 :type 'boolean)
168
169(defcustom he-dabbrev-as-symbol t
170 "Non-nil means expand as symbols, i.e. syntax `_' is considered a letter."
171 :group hippie-expand
172 :type 'boolean)
173
164(defvar he-num -1) 174(defvar he-num -1)
165 175
166(defvar he-string-beg (make-marker)) 176(defvar he-string-beg (make-marker))
@@ -1012,12 +1022,6 @@ string). It returns t if a new expansion is found, nil otherwise."
1012 (setq result nil))) ; ignore if bad prefix or already in table 1022 (setq result nil))) ; ignore if bad prefix or already in table
1013 result)) 1023 result))
1014 1024
1015(defvar he-dabbrev-skip-space ()
1016 "Non-NIL means tolerate trailing spaces in the abbreviation to expand.")
1017
1018(defvar he-dabbrev-as-symbol t
1019 "Non-NIL means expand as symbols, i.e. syntax '_' is considered a letter.")
1020
1021(defun he-dabbrev-beg () 1025(defun he-dabbrev-beg ()
1022 (let ((op (point))) 1026 (let ((op (point)))
1023 (save-excursion 1027 (save-excursion