comparison lisp/hippie-exp.el @ 2230:6314334d7c2b

Add standard library headers.

2229:bd3c525fa6fc

;; Expand a word trying various ways to find its expansion.
;; Copyright (C) 1992 Free Software Foundation, Inc.
;;
;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;; 
;;  Author: Anders Holst ([e-mail])
;;
;;  Last change: 4 January 1993

;;  
;;  DESCRIPTION
;;  
;;  `hippie-expand' is a single function for a lot of different kinds
;;  of completions and expansions.  Called repeatedly it tries all
;;  possible completions in succession. 
;;  Which kinds of completions to try, and in which order, is

;;  of this function took form.
;;  I am also grateful to all those who have given me suggestions on
;;  how to improve it.
;;


(defvar he-num -1)

(defvar he-string-beg ())

    (save-excursion
      (skip-chars-backward skips)
      (skip-chars-forward "-_.")
      (point))))

2230:6314334d7c2b

;;; hippie.el --- expand a word trying various ways to find its expansion.

;; Author: Anders Holst <[e-mail]>
;; Keywords: extensions

;; Copyright (C) 1992 Free Software Foundation, Inc.
;;
;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;; 
;;  Last change: 4 January 1993

;; Commentary:
;;  
;;  `hippie-expand' is a single function for a lot of different kinds
;;  of completions and expansions.  Called repeatedly it tries all
;;  possible completions in succession. 
;;  Which kinds of completions to try, and in which order, is

;;  of this function took form.
;;  I am also grateful to all those who have given me suggestions on
;;  how to improve it.
;;

;; Code:

(defvar he-num -1)

(defvar he-string-beg ())

    (save-excursion
      (skip-chars-backward skips)
      (skip-chars-forward "-_.")
      (point))))

;;; hippie.el ends here