;;; hippie-exp.el --- expand text trying various ways to find its expansion.
;; Author: Anders Holst <aho@sans.kth.se>
-;; Last change: 22 June 1993
-;; Version: 1.2
-;; Keywords: extensions
+;; Last change: 2 September 1993
+;; Version: 1.3
+;; Keywords: abbrev
-;; Copyright (C) 1992 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 1993 Free Software Foundation, Inc.
;;
;; This file is part of GNU Emacs.
;; ARG functions forward in this list. Given some other argument
;; (a negative argument or just Ctrl-U) it undoes the tried
;; completion.
+;;
;; 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
;; 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".
+;; 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".
;; See also the macro `make-hippie-expand-function' below.
;;
;; A short description of the current try-functions in this file:
;; because different try-functions may try to complete different
;; lengths of text, and thus put different amounts of the
;; text in `he-try-table'. Anyway this seems to occur seldom enough not
-;; to be too disturbing. Also it should NOT bee possible for the
+;; to be too disturbing. Also it should NOT be possible for the
;; opposite situation to occur, that `hippie-expand' misses some
;; suggestion because it thinks it has already tried it.
;;
;;;###autoload
(defvar hippie-expand-try-functions-list '(try-complete-file-name
try-expand-all-abbrevs
+ try-expand-list
try-expand-line
try-expand-dabbrev
try-expand-dabbrev-all-buffers
"*The maximum number of buffers (apart from the current) searched.
If nil, all buffers are searched.")
+;;;###autoload
+(defvar hippie-expand-ignore-buffers '("^ \\*.*\\*$" dired-mode)
+ "*A list specifying which buffers not to search (if not current).
+Can contain both regexps matching buffer names (as strings) and major modes
+\(as atoms)")
+
;;;###autoload
(defun hippie-expand (arg)
"Try to expand text before point, using multiple methods.
(setq lst (cdr lst)))
lst)
+;; Check if STR matches any regexp in LST.
+;; Ignore possible non-strings in LST.
+(defun he-regexp-member (str lst)
+ (while (and lst
+ (or (not (stringp (car lst)))
+ (not (string-match (car lst) str))))
+ (setq lst (cdr lst)))
+ lst)
+
;; 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.
(< he-searched-n-bufs hippie-expand-max-buffers)))
(set-buffer (car he-search-bufs))
(if (and (not (eq (current-buffer) buf))
- (not (string-match " \\*Minibuf-[0-9]+\\*"
- (buffer-name (current-buffer))))
- (not (eq major-mode 'dired-mode)))
- ;; Dont search minibuffers nor dired buffers
+ (not (memq major-mode hippie-expand-ignore-buffers))
+ (not (he-regexp-member (buffer-name)
+ hippie-expand-ignore-buffers)))
(save-excursion
(goto-char he-search-loc)
(setq strip-prompt (and (get-buffer-process (current-buffer))
(< he-searched-n-bufs hippie-expand-max-buffers)))
(set-buffer (car he-search-bufs))
(if (and (not (eq (current-buffer) buf))
- (not (string-match " \\*Minibuf-[0-9]+\\*"
- (buffer-name (current-buffer))))
- (not (eq major-mode 'dired-mode)))
- ;; Dont search minibuffers nor dired buffers
+ (not (memq major-mode hippie-expand-ignore-buffers))
+ (not (he-regexp-member (buffer-name)
+ hippie-expand-ignore-buffers)))
(save-excursion
(goto-char he-search-loc)
(setq expansion (he-list-search he-search-string nil))
(condition-case ()
(forward-list 1)
(error (setq err t)))
+ (if (and reverse
+ (> (point) he-string-beg))
+ (setq err t))
(if (not err)
(progn
(setq result (buffer-substring beg (point)))
(< he-searched-n-bufs hippie-expand-max-buffers)))
(set-buffer (car he-search-bufs))
(if (and (not (eq (current-buffer) buf))
- (not (string-match " \\*Minibuf-[0-9]+\\*"
- (buffer-name (current-buffer))))
- (not (eq major-mode 'dired-mode)))
- ;; Dont search minibuffers nor dired buffers
+ (not (memq major-mode hippie-expand-ignore-buffers))
+ (not (he-regexp-member (buffer-name)
+ hippie-expand-ignore-buffers)))
(save-excursion
(goto-char he-search-loc)
(setq expansion (he-dab-search he-search-string nil))
t))))
(defun he-dab-search-regexp (pat)
- (concat "\\b" (regexp-quote pat)
+ (concat "\\<" (regexp-quote pat)
"\\(\\sw\\|\\s_\\)+"))
(defun he-dab-search (pattern reverse)
result))
(defun he-dabbrev-beg ()
- (save-excursion
- (skip-syntax-backward "w_")
- (skip-syntax-forward "_")
- (point)))
+ (min (point)
+ (save-excursion
+ (skip-syntax-backward "w_")
+ (skip-syntax-forward "_")
+ (point))))
(provide 'hippie-exp)