diff options
| author | Richard M. Stallman | 1997-05-30 05:30:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-30 05:30:58 +0000 |
| commit | 86414c3ca0a38442d0df120d5573e756e7a49044 (patch) | |
| tree | 050e8465d9713041301d4d75080a8272f4a3f786 /lisp | |
| parent | 30178dde79a3311bd61bf9ba4c41f6cdd7ea5706 (diff) | |
| download | emacs-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.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 @@ | |||
| 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 |