hippie-exp.el 39.2 KB
Newer Older
1
;;; hippie-exp.el --- expand text trying various ways to find its expansion
2

Paul Eggert's avatar
Paul Eggert committed
3
;; Copyright (C) 1992, 2001-2019 Free Software Foundation, Inc.
Erik Naggum's avatar
Erik Naggum committed
4

5
;; Author: Anders Holst <aho@sans.kth.se>
6
;; Maintainer: emacs-devel@gnu.org
7
;; Version: 1.6
Dan Nicolaescu's avatar
Dan Nicolaescu committed
8
;; Keywords: abbrev convenience
9

Richard M. Stallman's avatar
Richard M. Stallman committed
10 11
;; This file is part of GNU Emacs.

12
;; GNU Emacs is free software: you can redistribute it and/or modify
Richard M. Stallman's avatar
Richard M. Stallman committed
13
;; it under the terms of the GNU General Public License as published by
14 15
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
Richard M. Stallman's avatar
Richard M. Stallman committed
16 17 18 19 20 21 22

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
23
;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
Richard M. Stallman's avatar
Richard M. Stallman committed
24

25
;;; Commentary:
Erik Naggum's avatar
Erik Naggum committed
26

Richard M. Stallman's avatar
Richard M. Stallman committed
27 28
;;  `hippie-expand' is a single function for a lot of different kinds
;;  of completions and expansions.  Called repeatedly it tries all
Juanma Barranquero's avatar
Juanma Barranquero committed
29
;;  possible completions in succession.
Richard M. Stallman's avatar
Richard M. Stallman committed
30 31 32 33 34 35 36 37
;;  Which kinds of completions to try, and in which order, is
;;  determined by the contents of `hippie-expand-try-functions-list'.
;;  Much customization of `hippie-expand' can be made by changing the
;;  order of, removing, or inserting new functions in this list.
;;  Given a positive numeric argument, `hippie-expand' jumps directly
;;  ARG functions forward in this list.  Given some other argument
;;  (a negative argument or just Ctrl-U) it undoes the tried
;;  completion.
38
;;
Richard M. Stallman's avatar
Richard M. Stallman committed
39 40 41 42
;;  If the variable `hippie-expand-verbose' is non-nil, `hippie-expand'
;;  outputs in a message which try-function in the list that is used
;;  currently (ie. was used currently and will be tried first the next
;;  time).
43 44 45
;;  The variable `hippie-expand-max-buffers' determines in how many
;;  buffers, apart from the current, to search for expansions in.  It
;;  is used by the try-functions named "-all-buffers".
46 47 48 49
;;  The variable `hippie-expand-ignore-buffers' is a list of regexps
;;  matching buffer names (as strings) or major modes (as atoms) of
;;  buffers that should not be searched by the try-functions named
;;  "-all-buffers".
50 51 52 53 54 55 56 57 58 59 60
;;  If set, the variable `hippie-expand-only-buffers' does the opposite
;;  of `hippie-expand-ignore-buffers', in that the search is restricted
;;  to only the kind of buffers listed.
;;  If the variable `hippie-expand-no-restriction' is non-nil, narrowed
;;  buffers are widened before they are searched.
;;  The variable `hippie-expand-dabbrev-skip-space' controls whether
;;  trailing spaces will be included in the abbreviation to search for,
;;  which then gives the same behavior as the original `dabbrev-expand'.
;;  The variable `hippie-expand-dabbrev-as-symbol' controls whether
;;  characters of syntax '_' is considered part of the words to expand
;;  dynamically.
Richard M. Stallman's avatar
Richard M. Stallman committed
61
;;  See also the macro `make-hippie-expand-function' below.
Juanma Barranquero's avatar
Juanma Barranquero committed
62
;;
Richard M. Stallman's avatar
Richard M. Stallman committed
63 64 65 66 67 68 69 70 71 72
;;  A short description of the current try-functions in this file:
;;    `try-complete-file-name' : very convenient to have in any buffer,
;;      and not just in the minibuffer or (some) shell-mode.  It goes
;;      through all possible completions instead of just completing as
;;      much as is unique.
;;    `try-complete-file-name-partially' : To insert in the list just
;;      before `try-complete-file-name' for those who want first to get
;;      a file name completed only as many characters as is unique.
;;    `try-expand-all-abbrevs' : can be removed if you don't use abbrevs.
;;      Otherwise it looks through all abbrev-tables, starting with
Juanma Barranquero's avatar
Juanma Barranquero committed
73 74 75
;;      the local followed by the global.
;;    `try-expand-line' : Searches the buffer for an entire line that
;;      begins exactly as the current line.  Convenient sometimes, for
Richard M. Stallman's avatar
Richard M. Stallman committed
76
;;      example as a substitute for (or complement to) the history
77
;;      list in shell-like buffers.  At other times, only confusing.
Richard M. Stallman's avatar
Richard M. Stallman committed
78 79
;;    `try-expand-line-all-buffers' : Like `try-expand-line' but searches
;;      in all buffers (except the current).  (This may be a little
80 81
;;      slow, don't use it unless you are really fond of `hippie-expand'.)
;;    `try-expand-list' : Tries to expand the text back to the nearest
82 83
;;      open delimiter, to a whole list from the buffer.  Convenient for
;;      example when writing Lisp or TeX.
Juanma Barranquero's avatar
Juanma Barranquero committed
84 85
;;    `try-expand-list-all-buffers' : Like `try-expand-list' but searches
;;      in all buffers (except the current).
Richard M. Stallman's avatar
Richard M. Stallman committed
86 87 88 89 90
;;    `try-expand-dabbrev' : works exactly as dabbrev-expand (but of
;;      course in a way compatible with the other try-functions).
;;    `try-expand-dabbrev-all-buffers' : perhaps the most useful of them,
;;      like `dabbrev-expand' but searches all Emacs buffers (except the
;;      current) for matching words.  (No, I don't find this one
Juanma Barranquero's avatar
Juanma Barranquero committed
91
;;      particularly slow.)
92 93 94 95 96 97 98 99 100 101
;;    `try-expand-dabbrev-visible': Searches the currently visible parts of
;;      all windows.  Can be put before `try-expand-dabbrev-all-buffers' to
;;      first try the expansions you can see.
;;    `try-expand-dabbrev-from-kill': Searches the kill ring for a suitable
;;      completion of the word.  Good to have, just in case the word was not
;;      found elsewhere.
;;    `try-expand-whole-kill' : Tries to complete text with a whole entry
;;      from the kill ring.  May be good if you don't know how far up in
;;      the kill-ring the required entry is, and don't want to mess with
;;      "Choose Next Paste".
102
;;    `try-complete-lisp-symbol' : like `elisp-completion-at-point', but goes
Richard M. Stallman's avatar
Richard M. Stallman committed
103 104
;;      through all possibilities instead of completing what is unique.
;;      Might be tedious (usually a lot of possible completions) and
105
;;      since its function is much like `completion-at-point', which
Richard M. Stallman's avatar
Richard M. Stallman committed
106 107 108
;;      already has a key of its own, you might want to remove this.
;;    `try-complete-lisp-symbol-partially' : To insert in the list just
;;      before `try-complete-lisp-symbol' for those who first want to get
Juanma Barranquero's avatar
Juanma Barranquero committed
109
;;      completion of what is unique in the name.
110 111 112 113 114 115 116 117
;;
;;  Not all of the above functions are by default in
;;  `hippie-expand-try-functions-list'.  This variable is better set
;;  in ".emacs" to make `hippie-expand' behave maximally convenient
;;  according to personal taste.  Also, instead of loading the
;;  variable with all kinds of try-functions above, it might be an
;;  idea to use `make-hippie-expand-function' to construct different
;;  `hippie-expand'-like functions, with different try-lists and bound
118
;;  to different keys.  It is also possible to make
119 120
;;  `hippie-expand-try-functions-list' a buffer local variable, and
;;  let it depend on the mode (by setting it in the mode-hooks).
Richard M. Stallman's avatar
Richard M. Stallman committed
121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143
;;
;;  To write new try-functions, consider the following:
;;  Each try-function takes one argument OLD which is nil the first
;;  time the function is called and true in succeeding calls for the
;;  same string to complete.  The first time the function has to
;;  extract the string before point to complete, and substitute the
;;  first completion alternative for it.  On following calls it has to
;;  substitute the next possible completion for the last tried string.
;;  The try-function is to return t as long as it finds new
;;  possible completions.  When there are no more alternatives it has
;;  to restore the text before point to its original contents, and
;;  return nil (don't beep or message or anything).
;;  The try-function can (should) use the following functions:
;;    `he-init-string' : Initializes the text to substitute to the
;;      contents of the region BEGIN to END.  Also sets the variable
;;      `he-search-string' to the text to expand.
;;    `he-substitute-string' : substitutes STR into the region
;;      initialized with `he-init-string'.  (An optional second argument
;;      TRANS-CASE non-nil, means transfer of case from the abbreviation
;;      to the expansion is ok if that is enabled in the buffer.)
;;    `he-reset-string' : Resets the initialized region to its original
;;      contents.
;;  There is also a variable: `he-tried-table' which is meant to contain
Juanma Barranquero's avatar
Juanma Barranquero committed
144
;;  all tried expansions so far.  The try-function can check this
Richard M. Stallman's avatar
Richard M. Stallman committed
145
;;  variable to see whether an expansion has already been tried
146
;;  (hint: `he-string-member').
Richard M. Stallman's avatar
Richard M. Stallman committed
147
;;
148
;;  Known bugs
Richard M. Stallman's avatar
Richard M. Stallman committed
149 150
;;
;;  It may happen that some completion suggestion occurs twice, in
Juanma Barranquero's avatar
Juanma Barranquero committed
151
;;  spite of the use of `he-tried-table' to prevent that.  This is
Richard M. Stallman's avatar
Richard M. Stallman committed
152 153
;;  because different try-functions may try to complete different
;;  lengths of text, and thus put different amounts of the
154 155
;;  text in `he-tried-table'.  Anyway this seems to occur seldom enough
;;  not to be too disturbing.  Also it should NOT be possible for the
Richard M. Stallman's avatar
Richard M. Stallman committed
156 157 158
;;  opposite situation to occur, that `hippie-expand' misses some
;;  suggestion because it thinks it has already tried it.
;;
159
;;  Acknowledgment
Richard M. Stallman's avatar
Richard M. Stallman committed
160 161 162 163
;;
;;  I want to thank Mikael Djurfeldt in discussions with whom the idea
;;  of this function took form.
;;  I am also grateful to all those who have given me suggestions on
164
;;  how to improve it, and all those who helped to find and remove bugs.
Richard M. Stallman's avatar
Richard M. Stallman committed
165 166
;;

167
;;; Code:
Richard M. Stallman's avatar
Richard M. Stallman committed
168

Chong Yidong's avatar
Chong Yidong committed
169
(require 'comint)
Dave Love's avatar
Dave Love committed
170

171 172
(defgroup hippie-expand nil
  "Expand text trying various ways to find its expansion."
Dave Love's avatar
Dave Love committed
173 174
  :link '(custom-manual "(autotype)Hippie Expand")
  :link '(emacs-commentary-link "hippie-exp")
Dan Nicolaescu's avatar
Dan Nicolaescu committed
175 176
  :group 'abbrev
  :group 'convenience)
177

Richard M. Stallman's avatar
Richard M. Stallman committed
178 179
(defvar he-num -1)

180
(defvar he-string-beg (make-marker))
Richard M. Stallman's avatar
Richard M. Stallman committed
181

182
(defvar he-string-end (make-marker))
Richard M. Stallman's avatar
Richard M. Stallman committed
183 184 185 186 187 188 189

(defvar he-search-string ())

(defvar he-expand-list ())

(defvar he-tried-table ())

190
(defvar he-search-loc (make-marker))
Richard M. Stallman's avatar
Richard M. Stallman committed
191

192 193
(defvar he-search-loc2 ())

Richard M. Stallman's avatar
Richard M. Stallman committed
194 195 196 197
(defvar he-search-bw ())

(defvar he-search-bufs ())

198 199
(defvar he-searched-n-bufs ())

200 201
(defvar he-search-window ())

202 203
;;; Autoloaded for historical reasons (bug#12982)
;;;###autoload
Dave Love's avatar
Dave Love committed
204 205 206 207 208 209 210 211 212 213 214
(defcustom hippie-expand-try-functions-list
  '(try-complete-file-name-partially
    try-complete-file-name
    try-expand-all-abbrevs
    try-expand-list
    try-expand-line
    try-expand-dabbrev
    try-expand-dabbrev-all-buffers
    try-expand-dabbrev-from-kill
    try-complete-lisp-symbol-partially
    try-complete-lisp-symbol)
Richard M. Stallman's avatar
Richard M. Stallman committed
215 216
  "The list of expansion functions tried in order by `hippie-expand'.
To change the behavior of `hippie-expand', remove, change the order of,
Dave Love's avatar
Dave Love committed
217 218 219
or insert functions in this list."
  :type '(repeat function)
  :group 'hippie-expand)
Richard M. Stallman's avatar
Richard M. Stallman committed
220

221
(defcustom hippie-expand-verbose t
Lute Kamstra's avatar
Lute Kamstra committed
222
  "Non-nil makes `hippie-expand' output which function it is trying."
223 224
  :type 'boolean
  :group 'hippie-expand)
Richard M. Stallman's avatar
Richard M. Stallman committed
225

226
(defcustom hippie-expand-dabbrev-skip-space nil
Lute Kamstra's avatar
Lute Kamstra committed
227
  "Non-nil means tolerate trailing spaces in the abbreviation to expand."
228 229 230 231
  :group 'hippie-expand
  :type 'boolean)

(defcustom hippie-expand-dabbrev-as-symbol t
Lute Kamstra's avatar
Lute Kamstra committed
232
  "Non-nil means expand as symbols, i.e. syntax `_' is considered a letter."
233 234 235 236
  :group 'hippie-expand
  :type 'boolean)

(defcustom hippie-expand-no-restriction t
Lute Kamstra's avatar
Lute Kamstra committed
237
  "Non-nil means that narrowed buffers are widened during search."
238 239 240
  :group 'hippie-expand
  :type 'boolean)

241
(defcustom hippie-expand-max-buffers ()
Lute Kamstra's avatar
Lute Kamstra committed
242
  "The maximum number of buffers (apart from the current) searched.
243 244 245 246
If nil, all buffers are searched."
  :type '(choice (const :tag "All" nil)
		 integer)
  :group 'hippie-expand)
247

248
(defcustom hippie-expand-ignore-buffers '("^ \\*.*\\*$" dired-mode)
Lute Kamstra's avatar
Lute Kamstra committed
249
  "A list specifying which buffers not to search (if not current).
250
Can contain both regexps matching buffer names (as strings) and major modes
251 252 253
\(as atoms)"
  :type '(repeat (choice regexp (symbol :tag "Major Mode")))
  :group 'hippie-expand)
254

255
(defcustom hippie-expand-only-buffers ()
Lute Kamstra's avatar
Lute Kamstra committed
256
  "A list specifying the only buffers to search (in addition to current).
257
Can contain both regexps matching buffer names (as strings) and major modes
Pavel Janík's avatar
Pavel Janík committed
258
\(as atoms).  If non-nil, this variable overrides the variable
259 260 261 262
`hippie-expand-ignore-buffers'."
  :type '(repeat (choice regexp (symbol :tag "Major Mode")))
  :group 'hippie-expand)

263
;;;###autoload
Richard M. Stallman's avatar
Richard M. Stallman committed
264 265 266 267 268
(defun hippie-expand (arg)
  "Try to expand text before point, using multiple methods.
The expansion functions in `hippie-expand-try-functions-list' are
tried in order, until a possible expansion is found.  Repeated
application of `hippie-expand' inserts successively possible
Juanma Barranquero's avatar
Juanma Barranquero committed
269
expansions.
Richard M. Stallman's avatar
Richard M. Stallman committed
270
With a positive numeric argument, jumps directly to the ARG next
Juanma Barranquero's avatar
Juanma Barranquero committed
271 272
function in this list.  With a negative argument or just \\[universal-argument],
undoes the expansion."
Richard M. Stallman's avatar
Richard M. Stallman committed
273
  (interactive "P")
Juanma Barranquero's avatar
Juanma Barranquero committed
274
  (if (or (not arg)
Richard M. Stallman's avatar
Richard M. Stallman committed
275 276 277 278 279 280 281 282 283 284 285 286
	  (and (integerp arg) (> arg 0)))
      (let ((first (or (= he-num -1)
		       (not (equal this-command last-command)))))
	(if first
	    (progn
	      (setq he-num -1)
	      (setq he-tried-table nil)))
	(if arg
	    (if (not first) (he-reset-string))
	    (setq arg 0))
	(let ((i (max (+ he-num arg) 0)))
	  (while (not (or (>= i (length hippie-expand-try-functions-list))
Juanma Barranquero's avatar
Juanma Barranquero committed
287
			  (apply (nth i hippie-expand-try-functions-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
288 289 290 291 292 293 294 295 296 297
				 (list (= he-num i)))))
	    (setq i (1+ i)))
	  (setq he-num i))
	(if (>= he-num (length hippie-expand-try-functions-list))
	    (progn
	      (setq he-num -1)
	      (if first
		  (message "No expansion found")
		  (message "No further expansions found"))
	      (ding))
298
	    (if (and hippie-expand-verbose
299
		     (not (window-minibuffer-p)))
300
		(message "Using %s"
301
			 (nth he-num hippie-expand-try-functions-list)))))
302 303
      (if (and (>= he-num 0)
	       (eq (marker-buffer he-string-beg) (current-buffer)))
Richard M. Stallman's avatar
Richard M. Stallman committed
304 305 306
	  (progn
	    (setq he-num -1)
	    (he-reset-string)
307
	    (if (and hippie-expand-verbose
308
		     (not (window-minibuffer-p)))
Richard M. Stallman's avatar
Richard M. Stallman committed
309
		(message "Undoing expansions"))))))
310

Richard M. Stallman's avatar
Richard M. Stallman committed
311 312
;; Initializes the region to expand (to between BEG and END).
(defun he-init-string (beg end)
313 314
  (set-marker he-string-beg beg)
  (set-marker he-string-end end)
315
  (setq he-search-string (buffer-substring-no-properties beg end)))
Richard M. Stallman's avatar
Richard M. Stallman committed
316 317 318

;; Resets the expanded region to its original contents.
(defun he-reset-string ()
319 320 321
  (let ((newpos (point-marker)))
    (goto-char he-string-beg)
    (insert he-search-string)
322 323
    (delete-region (point) he-string-end)
    (goto-char newpos)))
Richard M. Stallman's avatar
Richard M. Stallman committed
324 325

;; Substitutes an expansion STR into the correct region (the region
Juanma Barranquero's avatar
Juanma Barranquero committed
326
;; initialized with `he-init-string').
Richard M. Stallman's avatar
Richard M. Stallman committed
327 328 329 330 331 332
;; An optional argument TRANS-CASE means that it is ok to transfer case
;; from the abbreviation to the expansion if that is possible, and is
;; enabled in the buffer.
(defun he-substitute-string (str &optional trans-case)
  (let ((trans-case (and trans-case
			 case-replace
333 334 335
			 case-fold-search))
	(newpos (point-marker))
	(subst ()))
Richard M. Stallman's avatar
Richard M. Stallman committed
336
    (goto-char he-string-beg)
337 338 339 340 341 342 343 344 345 346 347 348 349 350
    (setq subst (if trans-case (he-transfer-case he-search-string str) str))
    (setq he-tried-table (cons subst he-tried-table))
    (insert subst)
    (delete-region (point) he-string-end)
    (goto-char newpos)))

(defun he-capitalize-first (str)
  (save-match-data
    (if (string-match "\\Sw*\\(\\sw\\).*" str)
	(let ((res (downcase str))
	      (no (match-beginning 1)))
	  (aset res no (upcase (aref str no)))
	  res)
      str)))
Richard M. Stallman's avatar
Richard M. Stallman committed
351 352 353 354

(defun he-ordinary-case-p (str)
  (or (string= str (downcase str))
      (string= str (upcase str))
355 356 357 358 359 360 361 362
      (string= str (capitalize str))
      (string= str (he-capitalize-first str))))

(defun he-transfer-case (from-str to-str)
  (cond ((string= from-str (substring to-str 0 (min (length from-str)
						    (length to-str))))
	 to-str)
	((not (he-ordinary-case-p to-str))
363
	 to-str)
364 365 366 367 368 369 370 371 372 373 374
	((string= from-str (downcase from-str))
	 (downcase to-str))
	((string= from-str (upcase from-str))
	 (upcase to-str))
	((string= from-str (he-capitalize-first from-str))
	 (he-capitalize-first to-str))
	((string= from-str (capitalize from-str))
	 (capitalize to-str))
	(t
	 to-str)))

Richard M. Stallman's avatar
Richard M. Stallman committed
375 376

;; Check if STR is a member of LST.
Pavel Janík's avatar
Pavel Janík committed
377
;; Transform to the final case if optional TRANS-CASE is non-nil.
378 379 380 381 382 383 384 385
(defun he-string-member (str lst &optional trans-case)
  (if str
      (member (if (and trans-case
		       case-replace
		       case-fold-search)
		  (he-transfer-case he-search-string str)
		str)
	      lst)))
Richard M. Stallman's avatar
Richard M. Stallman committed
386

387
;; Check if current buffer matches any atom or regexp in LST.
Paul Eggert's avatar
Paul Eggert committed
388
;; Atoms are interpreted as major modes, strings as regexps matching the name.
389 390 391 392 393 394 395 396
(defun he-buffer-member (lst)
  (or (memq major-mode lst)
      (progn
	(while (and lst
		    (or (not (stringp (car lst)))
			(not (string-match (car lst) (buffer-name)))))
	  (setq lst (cdr lst)))
	lst)))
397

Richard M. Stallman's avatar
Richard M. Stallman committed
398 399 400 401 402 403 404 405 406 407
;;  For the real hippie-expand enthusiast: A macro that makes it
;;  possible to use many functions like hippie-expand, but with
;;  different try-functions-lists.
;;  Usage is for example:
;;    (fset 'my-complete-file (make-hippie-expand-function
;;                             '(try-complete-file-name-partially
;;                               try-complete-file-name)))
;;    (fset 'my-complete-line (make-hippie-expand-function
;;                             '(try-expand-line
;;                               try-expand-line-all-buffers)))
Juanma Barranquero's avatar
Juanma Barranquero committed
408
;;
409
;;;###autoload
Richard M. Stallman's avatar
Richard M. Stallman committed
410 411 412 413
(defmacro make-hippie-expand-function (try-list &optional verbose)
  "Construct a function similar to `hippie-expand'.
Make it use the expansion functions in TRY-LIST.  An optional second
argument VERBOSE non-nil makes the function verbose."
Gerd Moellmann's avatar
Gerd Moellmann committed
414
  `(function (lambda (arg)
Juanma Barranquero's avatar
Juanma Barranquero committed
415
    ,(concat
Gerd Moellmann's avatar
Gerd Moellmann committed
416 417 418 419 420 421
      "Try to expand text before point, using the following functions: \n"
      (mapconcat 'prin1-to-string (eval try-list) ", "))
    (interactive "P")
    (let ((hippie-expand-try-functions-list ,try-list)
          (hippie-expand-verbose ,verbose))
      (hippie-expand arg)))))
Richard M. Stallman's avatar
Richard M. Stallman committed
422 423 424 425


;;;  Here follows the try-functions and their requisites:

426

Richard M. Stallman's avatar
Richard M. Stallman committed
427 428 429 430 431 432
(defun try-complete-file-name (old)
  "Try to complete text as a file name.
The argument OLD has to be nil the first call of this function, and t
for subsequent calls (for further possible completions of the same
string).  It returns t if a new completion is found, nil otherwise."
  (if (not old)
Juanma Barranquero's avatar
Juanma Barranquero committed
433
      (progn
Richard M. Stallman's avatar
Richard M. Stallman committed
434
	(he-init-string (he-file-name-beg) (point))
Dan Nicolaescu's avatar
Dan Nicolaescu committed
435 436
	(let ((name-part (file-name-nondirectory he-search-string))
	      (dir-part (expand-file-name (or (file-name-directory
Richard M. Stallman's avatar
Richard M. Stallman committed
437 438 439 440
					       he-search-string) ""))))
	  (if (not (he-string-member name-part he-tried-table))
	      (setq he-tried-table (cons name-part he-tried-table)))
	  (if (and (not (equal he-search-string ""))
Dan Nicolaescu's avatar
Dan Nicolaescu committed
441
		   (file-directory-p dir-part))
Juanma Barranquero's avatar
Juanma Barranquero committed
442
	      (setq he-expand-list (sort (file-name-all-completions
Richard M. Stallman's avatar
Richard M. Stallman committed
443 444 445 446 447 448 449 450 451 452
					  name-part
					  dir-part)
					 'string-lessp))
	      (setq he-expand-list ())))))

  (while (and he-expand-list
	      (he-string-member (car he-expand-list) he-tried-table))
    (setq he-expand-list (cdr he-expand-list)))
  (if (null he-expand-list)
      (progn
453
	(if old (he-reset-string))
Richard M. Stallman's avatar
Richard M. Stallman committed
454
	())
455
      (let ((filename (he-concat-directory-file-name
Dan Nicolaescu's avatar
Dan Nicolaescu committed
456
		       (file-name-directory he-search-string)
457
		       (car he-expand-list))))
Richard M. Stallman's avatar
Richard M. Stallman committed
458
	(he-substitute-string filename)
459
	(setq he-tried-table (cons (car he-expand-list) (cdr he-tried-table)))
Richard M. Stallman's avatar
Richard M. Stallman committed
460 461 462 463 464 465
	(setq he-expand-list (cdr he-expand-list))
	t)))

(defun try-complete-file-name-partially (old)
  "Try to complete text as a file name, as many characters as unique.
The argument OLD has to be nil the first call of this function.  It
Juanma Barranquero's avatar
Juanma Barranquero committed
466
returns t if a unique, possibly partial, completion is found, nil
Richard M. Stallman's avatar
Richard M. Stallman committed
467 468 469
otherwise."
  (let ((expansion ()))
    (if (not old)
Juanma Barranquero's avatar
Juanma Barranquero committed
470
	(progn
Richard M. Stallman's avatar
Richard M. Stallman committed
471
	  (he-init-string (he-file-name-beg) (point))
Dan Nicolaescu's avatar
Dan Nicolaescu committed
472 473
	  (let ((name-part (file-name-nondirectory he-search-string))
		(dir-part (expand-file-name (or (file-name-directory
Richard M. Stallman's avatar
Richard M. Stallman committed
474 475
						 he-search-string) ""))))
	    (if (and (not (equal he-search-string ""))
Dan Nicolaescu's avatar
Dan Nicolaescu committed
476
		     (file-directory-p dir-part))
Richard M. Stallman's avatar
Richard M. Stallman committed
477 478 479
		(setq expansion (file-name-completion name-part
						      dir-part)))
	    (if (or (eq expansion t)
480 481
		    (string= expansion name-part)
		    (he-string-member expansion he-tried-table))
Richard M. Stallman's avatar
Richard M. Stallman committed
482 483 484 485
		(setq expansion ())))))

    (if (not expansion)
	(progn
486
	  (if old (he-reset-string))
Richard M. Stallman's avatar
Richard M. Stallman committed
487
	  ())
488
	(let ((filename (he-concat-directory-file-name
Dan Nicolaescu's avatar
Dan Nicolaescu committed
489
			 (file-name-directory he-search-string)
490
			 expansion)))
Richard M. Stallman's avatar
Richard M. Stallman committed
491
	  (he-substitute-string filename)
492
	  (setq he-tried-table (cons expansion (cdr he-tried-table)))
Richard M. Stallman's avatar
Richard M. Stallman committed
493 494
	  t))))

495
(defvar he-file-name-chars
Dan Nicolaescu's avatar
Dan Nicolaescu committed
496
  (cond ((memq system-type '(ms-dos windows-nt cygwin))
497 498 499 500 501
	 "-a-zA-Z0-9_/.,~^#$+=:\\\\")
	(t			    ;; More strange file formats ?
	 "-a-zA-Z0-9_/.,~^#$+="))
  "Characters that are considered part of the file name to expand.")

Richard M. Stallman's avatar
Richard M. Stallman committed
502
(defun he-file-name-beg ()
503 504 505 506
  (let ((op (point)))
    (save-excursion
      (skip-chars-backward he-file-name-chars)
      (if (> (skip-syntax-backward "w") 0)  ;; No words with non-file chars
507 508
	  op
	(point)))))
Richard M. Stallman's avatar
Richard M. Stallman committed
509

Dan Nicolaescu's avatar
Dan Nicolaescu committed
510
;; Thanks go to David Hughes <ukchugd@ukpmr.cs.philips.nl> who
511 512 513
;; helped to make it work on PC.
(defun he-concat-directory-file-name (dir-part name-part)
  "Try to slam together two parts of a file specification, system dependently."
514
  (cond ((null dir-part) name-part)
515
	((eq system-type 'ms-dos)
516 517 518 519 520
	 (if (and (string-match "\\\\" dir-part)
		  (not (string-match "/" dir-part))
		  (= (aref name-part (1- (length name-part))) ?/))
	     (aset name-part (1- (length name-part)) ?\\))
	 (concat dir-part name-part))
Juanma Barranquero's avatar
Juanma Barranquero committed
521
	(t
522
	 (concat dir-part name-part))))
Juanma Barranquero's avatar
Juanma Barranquero committed
523

Richard M. Stallman's avatar
Richard M. Stallman committed
524 525 526 527 528 529
(defun try-complete-lisp-symbol (old)
  "Try to complete word as an Emacs Lisp symbol.
The argument OLD has to be nil the first call of this function, and t
for subsequent calls (for further possible completions of the same
string).  It returns t if a new completion is found, nil otherwise."
  (if (not old)
Juanma Barranquero's avatar
Juanma Barranquero committed
530
      (progn
Richard M. Stallman's avatar
Richard M. Stallman committed
531 532 533
	(he-init-string (he-lisp-symbol-beg) (point))
	(if (not (he-string-member he-search-string he-tried-table))
	    (setq he-tried-table (cons he-search-string he-tried-table)))
Juanma Barranquero's avatar
Juanma Barranquero committed
534
	(setq he-expand-list
Richard M. Stallman's avatar
Richard M. Stallman committed
535 536 537 538 539 540 541 542 543 544 545 546
	      (and (not (equal he-search-string ""))
		   (sort (all-completions he-search-string obarray
					  (function (lambda (sym)
					    (or (boundp sym)
						(fboundp sym)
						(symbol-plist sym)))))
			 'string-lessp)))))
  (while (and he-expand-list
	      (he-string-member (car he-expand-list) he-tried-table))
    (setq he-expand-list (cdr he-expand-list)))
  (if (null he-expand-list)
      (progn
547
	(if old (he-reset-string))
Richard M. Stallman's avatar
Richard M. Stallman committed
548 549 550 551 552 553 554 555 556
	())
      (progn
	(he-substitute-string (car he-expand-list))
	(setq he-expand-list (cdr he-expand-list))
	t)))

(defun try-complete-lisp-symbol-partially (old)
  "Try to complete as an Emacs Lisp symbol, as many characters as unique.
The argument OLD has to be nil the first call of this function.  It
Juanma Barranquero's avatar
Juanma Barranquero committed
557
returns t if a unique, possibly partial, completion is found, nil
Richard M. Stallman's avatar
Richard M. Stallman committed
558 559 560
otherwise."
  (let ((expansion ()))
    (if (not old)
Juanma Barranquero's avatar
Juanma Barranquero committed
561
	(progn
Richard M. Stallman's avatar
Richard M. Stallman committed
562 563
	  (he-init-string (he-lisp-symbol-beg) (point))
	  (if (not (string= he-search-string ""))
Juanma Barranquero's avatar
Juanma Barranquero committed
564
	      (setq expansion
Richard M. Stallman's avatar
Richard M. Stallman committed
565 566 567 568 569 570
		    (try-completion he-search-string obarray
				    (function (lambda (sym)
				      (or (boundp sym)
					  (fboundp sym)
					  (symbol-plist sym)))))))
	  (if (or (eq expansion t)
571 572
		  (string= expansion he-search-string)
		  (he-string-member expansion he-tried-table))
Richard M. Stallman's avatar
Richard M. Stallman committed
573 574 575 576
	      (setq expansion ()))))

  (if (not expansion)
      (progn
577
	(if old (he-reset-string))
Richard M. Stallman's avatar
Richard M. Stallman committed
578 579 580 581 582 583
	())
      (progn
	(he-substitute-string expansion)
	t))))

(defun he-lisp-symbol-beg ()
584 585 586
  (save-excursion
    (skip-syntax-backward "w_")
    (point)))
Richard M. Stallman's avatar
Richard M. Stallman committed
587 588 589 590 591 592 593 594

(defun try-expand-line (old)
  "Try to complete the current line to an entire line in the buffer.
The argument OLD has to be nil the first call of this function, and t
for subsequent calls (for further possible completions of the same
string).  It returns t if a new completion is found, nil otherwise."
  (let ((expansion ())
	(strip-prompt (and (get-buffer-process (current-buffer))
595
			   comint-use-prompt-regexp
596
			   comint-prompt-regexp)))
Richard M. Stallman's avatar
Richard M. Stallman committed
597 598 599
    (if (not old)
	(progn
	  (he-init-string (he-line-beg strip-prompt) (point))
600
	  (set-marker he-search-loc he-string-beg)
Richard M. Stallman's avatar
Richard M. Stallman committed
601 602 603 604
	  (setq he-search-bw t)))

    (if (not (equal he-search-string ""))
	(save-excursion
605 606 607 608 609
	  (save-restriction
	    (if hippie-expand-no-restriction
		(widen))
	    ;; Try looking backward unless inhibited.
	    (if he-search-bw
Juanma Barranquero's avatar
Juanma Barranquero committed
610
		(progn
611 612 613 614 615 616 617 618 619 620
		  (goto-char he-search-loc)
		  (setq expansion (he-line-search he-search-string
						  strip-prompt t))
		  (set-marker he-search-loc (point))
		  (if (not expansion)
		      (progn
			(set-marker he-search-loc he-string-end)
			(setq he-search-bw ())))))

	    (if (not expansion) ; Then look forward.
Juanma Barranquero's avatar
Juanma Barranquero committed
621
		(progn
622
		  (goto-char he-search-loc)
Juanma Barranquero's avatar
Juanma Barranquero committed
623
		  (setq expansion (he-line-search he-search-string
624 625
						  strip-prompt nil))
		  (set-marker he-search-loc (point)))))))
Richard M. Stallman's avatar
Richard M. Stallman committed
626 627 628

    (if (not expansion)
	(progn
629
	  (if old (he-reset-string))
Richard M. Stallman's avatar
Richard M. Stallman committed
630 631 632 633 634 635 636 637 638 639
	  ())
	(progn
	  (he-substitute-string expansion t)
	  t))))

(defun try-expand-line-all-buffers (old)
  "Try to complete the current line, searching all other buffers.
The argument OLD has to be nil the first call of this function, and t
for subsequent calls (for further possible completions of the same
string).  It returns t if a new completion is found, nil otherwise."
640 641 642 643 644 645 646 647 648 649 650 651 652
  (he--all-buffers
   old
   (lambda () (he-line-beg (and (get-buffer-process (current-buffer))
                           comint-use-prompt-regexp
                           comint-prompt-regexp)))
   (lambda (string)
     (he-line-search string
                     (and (get-buffer-process (current-buffer))
                          comint-use-prompt-regexp
                          comint-prompt-regexp)
                     nil))))

(defun he--all-buffers (old beg-function search-function)
Richard M. Stallman's avatar
Richard M. Stallman committed
653
  (let ((expansion ())
654
        (buf (current-buffer))
655 656
        (only-buffers hippie-expand-only-buffers)
        (ignore-buffers hippie-expand-ignore-buffers)
657
        (orig-case-fold-search case-fold-search))
Richard M. Stallman's avatar
Richard M. Stallman committed
658
    (if (not old)
659 660
        (progn
	  (he-init-string (funcall beg-function) (point))
661
	  (setq he-search-bufs (buffer-list))
662
	  (setq he-searched-n-bufs 0)
663
	  (set-marker he-search-loc 1 (car he-search-bufs))))
Richard M. Stallman's avatar
Richard M. Stallman committed
664 665

    (if (not (equal he-search-string ""))
Juanma Barranquero's avatar
Juanma Barranquero committed
666
	(while (and he-search-bufs
667 668
		    (not expansion)
		    (or (not hippie-expand-max-buffers)
669 670 671 672 673 674 675 676 677
                        (< he-searched-n-bufs hippie-expand-max-buffers)))
          (set-buffer (car he-search-bufs))
          (if (and (not (eq (current-buffer) buf))
                   (if only-buffers
                       (he-buffer-member only-buffers)
                     (not (he-buffer-member ignore-buffers))))
              (save-excursion
                (save-restriction
                  (if hippie-expand-no-restriction
678 679
		      (widen))
		  (goto-char he-search-loc)
Juanma Barranquero's avatar
Juanma Barranquero committed
680
		  (setq expansion
681
			(let ((case-fold-search orig-case-fold-search))
682
			  (funcall search-function he-search-string)))
683 684 685 686 687 688
		  (set-marker he-search-loc (point))
		  (if (not expansion)
		      (progn
			(setq he-search-bufs (cdr he-search-bufs))
			(setq he-searched-n-bufs (1+ he-searched-n-bufs))
			(set-marker he-search-loc 1 (car he-search-bufs))))))
689 690
	    (setq he-search-bufs (cdr he-search-bufs))
	    (set-marker he-search-loc 1 (car he-search-bufs)))))
Richard M. Stallman's avatar
Richard M. Stallman committed
691 692 693 694

    (set-buffer buf)
    (if (not expansion)
	(progn
695
	  (if old (he-reset-string))
Richard M. Stallman's avatar
Richard M. Stallman committed
696
	  ())
697 698 699
      (progn
        (he-substitute-string expansion t)
        t))))
Richard M. Stallman's avatar
Richard M. Stallman committed
700

Juanma Barranquero's avatar
Juanma Barranquero committed
701
(defun he-line-search (str strip-prompt reverse)
Richard M. Stallman's avatar
Richard M. Stallman committed
702 703 704
  (let ((result ()))
    (while (and (not result)
		(if reverse
Juanma Barranquero's avatar
Juanma Barranquero committed
705
		    (re-search-backward
Richard M. Stallman's avatar
Richard M. Stallman committed
706 707 708 709 710
		     (he-line-search-regexp str strip-prompt)
		     nil t)
		    (re-search-forward
		     (he-line-search-regexp str strip-prompt)
		     nil t)))
Gerd Moellmann's avatar
Gerd Moellmann committed
711 712
      (setq result (buffer-substring-no-properties (match-end 1)
						   (match-end 0)))
713 714
      (if (he-string-member result he-tried-table t)
	  (setq result nil)))		    ; if already in table, ignore
Richard M. Stallman's avatar
Richard M. Stallman committed
715 716 717 718
    result))

(defun he-line-beg (strip-prompt)
  (save-excursion
Juanma Barranquero's avatar
Juanma Barranquero committed
719
    (if (re-search-backward (he-line-search-regexp "" strip-prompt)
720
			    (line-beginning-position) t)
Richard M. Stallman's avatar
Richard M. Stallman committed
721 722 723 724 725
	(match-beginning 2)
      (point))))

(defun he-line-search-regexp (pat strip-prompt)
  (if strip-prompt
726
      (concat "\\(" comint-prompt-regexp "\\|^\\s-*\\)\\(?2:"
Richard M. Stallman's avatar
Richard M. Stallman committed
727 728
	      (regexp-quote pat)
	      "[^\n]*[^ \t\n]\\)")
Juanma Barranquero's avatar
Juanma Barranquero committed
729
      (concat "^\\(\\s-*\\)\\("
Richard M. Stallman's avatar
Richard M. Stallman committed
730 731 732
	      (regexp-quote pat)
	      "[^\n]*[^ \t\n]\\)")))

733 734 735 736 737 738 739 740 741 742 743 744 745 746
(defun try-expand-list (old)
  "Try to complete the current beginning of a list.
The argument OLD has to be nil the first call of this function, and t
for subsequent calls (for further possible completions of the same
string).  It returns t if a new completion is found, nil otherwise."
  (let ((expansion ()))
    (if (not old)
	(progn
	  (he-init-string (he-list-beg) (point))
	  (set-marker he-search-loc he-string-beg)
	  (setq he-search-bw t)))

    (if (not (equal he-search-string ""))
	(save-excursion
747 748 749 750 751
	  (save-restriction
	    (if hippie-expand-no-restriction
		(widen))
	    ;; Try looking backward unless inhibited.
	    (if he-search-bw
Juanma Barranquero's avatar
Juanma Barranquero committed
752
		(progn
753 754 755 756 757 758 759 760 761
		  (goto-char he-search-loc)
		  (setq expansion (he-list-search he-search-string t))
		  (set-marker he-search-loc (point))
		  (if (not expansion)
		      (progn
			(set-marker he-search-loc he-string-end)
			(setq he-search-bw ())))))

	    (if (not expansion) ; Then look forward.
Juanma Barranquero's avatar
Juanma Barranquero committed
762
		(progn
763 764 765
		  (goto-char he-search-loc)
		  (setq expansion (he-list-search he-search-string nil))
		  (set-marker he-search-loc (point)))))))
766 767 768 769 770 771 772 773 774 775 776 777 778 779

    (if (not expansion)
	(progn
	  (if old (he-reset-string))
	  ())
	(progn
	  (he-substitute-string expansion t)
	  t))))

(defun try-expand-list-all-buffers (old)
  "Try to complete the current list, searching all other buffers.
The argument OLD has to be nil the first call of this function, and t
for subsequent calls (for further possible completions of the same
string).  It returns t if a new completion is found, nil otherwise."
780
  (he--all-buffers old #'he-list-beg #'he-list-search))
781

782
(defun he-list-search (str &optional reverse)
783
  (let ((result ())
784
	beg pos err)
785 786 787 788 789 790 791 792 793
    (while (and (not result)
		(if reverse
		    (search-backward str nil t)
		    (search-forward str nil t)))
      (setq pos (point))
      (setq beg (match-beginning 0))
      (goto-char beg)
      (setq err ())
      (condition-case ()
794 795
	  (forward-list 1)
	(error (setq err t)))
Juanma Barranquero's avatar
Juanma Barranquero committed
796
      (if (and reverse
797 798
	       (> (point) he-string-beg))
	  (setq err t))
799
      (if (not err)
800
	  (progn
801
	    (setq result (buffer-substring-no-properties beg (point)))
802 803
	    (if (he-string-member result he-tried-table t)
		(setq result nil))))	       ; if already in table, ignore
804 805 806 807 808 809
      (goto-char pos))
    result))

(defun he-list-beg ()
  (save-excursion
    (condition-case ()
810
	(backward-up-list 1)
811 812 813
      (error ()))
    (point)))

Richard M. Stallman's avatar
Richard M. Stallman committed
814 815 816 817 818 819 820 821
(defun try-expand-all-abbrevs (old)
  "Try to expand word before point according to all abbrev tables.
The argument OLD has to be nil the first call of this function, and t
for subsequent calls (for further possible expansions of the same
string).  It returns t if a new expansion is found, nil otherwise."
  (if (not old)
      (progn
	(he-init-string (he-dabbrev-beg) (point))
Juanma Barranquero's avatar
Juanma Barranquero committed
822
	(setq he-expand-list
Richard M. Stallman's avatar
Richard M. Stallman committed
823 824
	      (and (not (equal he-search-string ""))
		   (mapcar (function (lambda (sym)
825 826 827
			     (if (and (boundp sym) (vectorp (eval sym)))
				 (abbrev-expansion (downcase he-search-string)
						   (eval sym)))))
Juanma Barranquero's avatar
Juanma Barranquero committed
828
			   (append '(local-abbrev-table
Richard M. Stallman's avatar
Richard M. Stallman committed
829 830 831 832
				     global-abbrev-table)
				   abbrev-table-name-list))))))
  (while (and he-expand-list
	      (or (not (car he-expand-list))
833
		  (he-string-member (car he-expand-list) he-tried-table t)))
Richard M. Stallman's avatar
Richard M. Stallman committed
834 835 836
    (setq he-expand-list (cdr he-expand-list)))
  (if (null he-expand-list)
      (progn
837
	(if old (he-reset-string))
Richard M. Stallman's avatar
Richard M. Stallman committed
838 839
	())
      (progn
840
	(he-substitute-string (car he-expand-list) t)
Richard M. Stallman's avatar
Richard M. Stallman committed
841 842 843 844 845 846 847 848 849 850 851 852
	(setq he-expand-list (cdr he-expand-list))
	t)))

(defun try-expand-dabbrev (old)
  "Try to expand word \"dynamically\", searching the current buffer.
The argument OLD has to be nil the first call of this function, and t
for subsequent calls (for further possible expansions of the same
string).  It returns t if a new expansion is found, nil otherwise."
  (let ((expansion ()))
    (if (not old)
	(progn
	  (he-init-string (he-dabbrev-beg) (point))
853
	  (set-marker he-search-loc he-string-beg)
Richard M. Stallman's avatar
Richard M. Stallman committed
854 855 856 857
	  (setq he-search-bw t)))

    (if (not (equal he-search-string ""))
	(save-excursion
858 859 860 861 862
	  (save-restriction
	    (if hippie-expand-no-restriction
		(widen))
	    ;; Try looking backward unless inhibited.
	    (if he-search-bw
Juanma Barranquero's avatar
Juanma Barranquero committed
863
		(progn
864 865 866 867 868 869 870 871 872
		  (goto-char he-search-loc)
		  (setq expansion (he-dabbrev-search he-search-string t))
		  (set-marker he-search-loc (point))
		  (if (not expansion)
		      (progn
			(set-marker he-search-loc he-string-end)
			(setq he-search-bw ())))))

	    (if (not expansion) ; Then look forward.
Juanma Barranquero's avatar
Juanma Barranquero committed
873
		(progn
874 875 876
		  (goto-char he-search-loc)
		  (setq expansion (he-dabbrev-search he-search-string nil))
		  (set-marker he-search-loc (point)))))))
Juanma Barranquero's avatar
Juanma Barranquero committed
877

Richard M. Stallman's avatar
Richard M. Stallman committed
878 879
    (if (not expansion)
	(progn
880
	  (if old (he-reset-string))
Richard M. Stallman's avatar
Richard M. Stallman committed
881 882 883 884 885 886
	  ())
	(progn
	  (he-substitute-string expansion t)
	  t))))

(defun try-expand-dabbrev-all-buffers (old)
887
  "Try to expand word \"dynamically\", searching all other buffers.
Richard M. Stallman's avatar
Richard M. Stallman committed
888 889 890
The argument OLD has to be nil the first call of this function, and t
for subsequent calls (for further possible expansions of the same
string).  It returns t if a new expansion is found, nil otherwise."
891
  (he--all-buffers old #'he-dabbrev-beg #'he-dabbrev-search))
Richard M. Stallman's avatar
Richard M. Stallman committed
892

893 894 895 896 897 898 899 900
;; Thanks go to Jeff Dairiki <dairiki@faraday.apl.washington.edu> who
;; suggested this one.
(defun try-expand-dabbrev-visible (old)
  "Try to expand word \"dynamically\", searching visible window parts.
The argument OLD has to be nil the first call of this function, and t
for subsequent calls (for further possible expansions of the same
string).  It returns t if a new expansion is found, nil otherwise."
  (let ((expansion ())
901
	(flag (if (frame-visible-p (window-frame))
902
		  'visible t)))
903 904 905 906 907 908
    (unless old
      (he-init-string (he-dabbrev-beg) (point))
      (setq he-search-window (selected-window))
      (set-marker he-search-loc
                  (window-start he-search-window)
                  (window-buffer he-search-window)))
909 910

    (while (and (not (equal he-search-string ""))
911 912
                (marker-position he-search-loc)
                (not expansion))
913
      (with-current-buffer (marker-buffer he-search-loc)
914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930
        (save-excursion
          (goto-char he-search-loc)
          (setq expansion (he-dabbrev-search he-search-string ()
                                             (window-end he-search-window)))
          (if (and expansion
                   (eq (marker-buffer he-string-beg) (current-buffer))
                   (eq (marker-position he-string-beg) (match-beginning 0)))
              (setq expansion
                    (he-dabbrev-search he-search-string ()
                                       (window-end he-search-window))))
          (set-marker he-search-loc (point) (current-buffer))))
      (unless expansion
        (setq he-search-window (next-window he-search-window nil flag))
        (if (eq he-search-window (selected-window))
            (set-marker he-search-loc nil)
          (set-marker he-search-loc (window-start he-search-window)
                      (window-buffer he-search-window)))))
Juanma Barranquero's avatar
Juanma Barranquero committed
931

932 933 934 935 936 937 938
    (if (not expansion)
	(progn
	  (if old (he-reset-string))
	  ())
	(progn
	  (he-substitute-string expansion t)
	  t))))
Richard M. Stallman's avatar
Richard M. Stallman committed
939

940 941
(defun he-dabbrev-search (pattern &optional reverse limit)
  (let ((result ())
942 943 944 945 946 947 948
	(regpat (cond ((not hippie-expand-dabbrev-as-symbol)
		       (concat "\\<" (regexp-quote pattern) "\\sw+"))
		      ((eq (char-syntax (aref pattern 0)) ?_)
		       (concat (regexp-quote pattern) "\\(\\sw\\|\\s_\\)+"))
		      (t
		       (concat "\\<" (regexp-quote pattern)
			       "\\(\\sw\\|\\s_\\)+")))))
Juanma Barranquero's avatar
Juanma Barranquero committed
949
    (while (and (not result)
Richard M. Stallman's avatar
Richard M. Stallman committed
950
		(if reverse
951 952
		     (re-search-backward regpat limit t)
		     (re-search-forward regpat limit t)))
953 954 955 956
      (setq result (buffer-substring-no-properties (match-beginning 0)
						   (match-end 0)))
      (if (or (and hippie-expand-dabbrev-as-symbol
		   (> (match-beginning 0) (point-min))
957 958 959 960
		   (memq (char-syntax (char-after (1- (match-beginning 0))))
			 '(?_ ?w)))
	      (he-string-member result he-tried-table t))
	  (setq result nil)))     ; ignore if bad prefix or already in table
Richard M. Stallman's avatar
Richard M. Stallman committed
961 962 963
    result))

(defun he-dabbrev-beg ()
964 965
  (let ((op (point)))
    (save-excursion
966
      (if hippie-expand-dabbrev-skip-space
967
	  (skip-syntax-backward ". "))
968 969 970
      (if (= (skip-syntax-backward (if hippie-expand-dabbrev-as-symbol
				       "w_" "w"))
	     0)
971 972 973 974 975 976 977 978 979 980
	  op
	(point)))))

(defun try-expand-dabbrev-from-kill (old)
  "Try to expand word \"dynamically\", searching the kill ring.
The argument OLD has to be nil the first call of this function, and t
for subsequent calls (for further possible completions of the same
string).  It returns t if a new completion is found, nil otherwise."
  (let ((expansion ()))
    (if (not old)
Juanma Barranquero's avatar
Juanma Barranquero committed
981
	(progn
982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998
	  (he-init-string (he-dabbrev-beg) (point))
	  (setq he-expand-list
		(if (not (equal he-search-string ""))
		    kill-ring))
	  (setq he-search-loc2 0)))
    (if (not (equal he-search-string ""))
	(setq expansion (he-dabbrev-kill-search he-search-string)))
    (if (not expansion)
	(progn
	  (if old (he-reset-string))
	  ())
	(progn
	  (he-substitute-string expansion t)
	  t))))

(defun he-dabbrev-kill-search (pattern)
  (let ((result ())
999 1000 1001 1002 1003 1004 1005
	(regpat (cond ((not hippie-expand-dabbrev-as-symbol)
		       (concat "\\<" (regexp-quote pattern) "\\sw+"))
		      ((eq (char-syntax (aref pattern 0)) ?_)
		       (concat (regexp-quote pattern) "\\(\\sw\\|\\s_\\)+"))
		      (t
		       (concat "\\<" (regexp-quote pattern)
			       "\\(\\sw\\|\\s_\\)+"))))
1006
	(killstr (car he-expand-list)))
Juanma Barranquero's avatar
Juanma Barranquero committed
1007
    (while (and (not result)
1008 1009 1010 1011
		he-expand-list)
      (while (and (not result)
		  (string-match regpat killstr he-search-loc2))
	(setq result (substring killstr (match-beginning 0) (match-end 0)))
1012
	(set-text-properties 0 (length result) () result)
1013
	(setq he-search-loc2 (1+ (match-beginning 0)))
1014 1015
	(if (or (and hippie-expand-dabbrev-as-symbol
		     (> (match-beginning 0) 0)
1016 1017 1018 1019
		     (memq (char-syntax (aref killstr (1- (match-beginning 0))))
			   '(?_ ?w)))
		(he-string-member result he-tried-table t))
	    (setq result nil)))     ; ignore if bad prefix or already in table
Juanma Barranquero's avatar
Juanma Barranquero committed
1020
      (if (and (not result)
1021 1022
		he-expand-list)
	  (progn
Juanma Barranquero's avatar
Juanma Barranquero committed
1023
	    (setq he-expand-list (cdr he-expand-list))
1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034
	    (setq killstr (car he-expand-list))
	    (setq he-search-loc2 0))))
    result))

(defun try-expand-whole-kill (old)
  "Try to complete text with something from the kill ring.
The argument OLD has to be nil the first call of this function, and t
for subsequent calls (for further possible completions of the same
string).  It returns t if a new completion is found, nil otherwise."
  (let ((expansion ()))
    (if (not old)
Juanma Barranquero's avatar
Juanma Barranquero committed
1035
	(progn
1036 1037 1038
	  (he-init-string (he-kill-beg) (point))
	  (if (not (he-string-member he-search-string he-tried-table))
	      (setq he-tried-table (cons he-search-string he-tried-table)))
Juanma Barranquero's avatar
Juanma Barranquero committed
1039
	  (setq he-expand-list
1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073
		(if (not (equal he-search-string ""))
		    kill-ring))
	  (setq he-search-loc2 ())))
    (if (not (equal he-search-string ""))
	(setq expansion (he-whole-kill-search he-search-string)))
    (if (not expansion)
	(progn
	  (if old (he-reset-string))
	  ())
	(progn
	  (he-substitute-string expansion)
	  t))))

(defun he-whole-kill-search (str)
  (let ((case-fold-search ())
	(result ())
	(str (regexp-quote str))
	(killstr (car he-expand-list))
	(pos -1))
    (while (and (not result)
		he-expand-list)
      (if (not he-search-loc2)
	  (while (setq pos (string-match str killstr (1+ pos)))
	    (setq he-search-loc2 (cons pos he-search-loc2))))
      (while (and (not result)
		  he-search-loc2)
	(setq pos (car he-search-loc2))
	(setq he-search-loc2 (cdr he-search-loc2))
	(save-excursion
	  (goto-char he-string-beg)
	  (if (and (>= (- (point) pos) (point-min))   ; avoid some string GC
		   (eq (char-after (- (point) pos)) (aref killstr 0))
		   (search-backward (substring killstr 0 pos)
				    (- (point) pos) t))
1074 1075 1076
	      (progn
		(setq result (substring killstr pos))
		(set-text-properties 0 (length result) () result))))
1077 1078 1079 1080 1081 1082
	(if (and result
		 (he-string-member result he-tried-table))
	    (setq result nil)))     ; ignore if already in table
      (if (and (not result)
		he-expand-list)
	  (progn
Juanma Barranquero's avatar
Juanma Barranquero committed
1083
	    (setq he-expand-list (cdr he-expand-list))
1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095
	    (setq killstr (car he-expand-list))
	    (setq pos -1))))
    result))

(defun he-kill-beg ()
  (let ((op (point)))
    (save-excursion
      (skip-syntax-backward "^w_")
      (if (= (skip-syntax-backward "w_") 0)
	  op
	(point)))))

1096 1097

(provide 'hippie-exp)
Richard M. Stallman's avatar
Richard M. Stallman committed
1098

1099
;;; hippie-exp.el ends here