mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(he-dabbrev-skip-space, he-dabbrev-as-symbol):

Browse Source 
Move definitions up.  Use defcustom.
This commit is contained in:
Richard M. Stallman 1997-05-30 05:30:58 +00:00
parent 30178dde79
commit 86414c3ca0
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/hippie-exp.el
View File

@ -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