comparison lisp/hippie-exp.el @ 17634:247c2a11843d

Use defgroup and defcustom.

17633:3b746ca2bca9

;;  how to improve it, and all those who helped to find and remove bugs.
;;

;;; Code:

(defvar he-num -1)

(defvar he-string-beg (make-marker))

(defvar he-string-end (make-marker))

  "The list of expansion functions tried in order by `hippie-expand'.
To change the behavior of `hippie-expand', remove, change the order of,
or insert functions in this list.")

;;;###autoload
(defvar hippie-expand-verbose t
  "*Non-nil makes `hippie-expand' output which function it is trying.")

;;;###autoload
(defvar hippie-expand-max-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.
The expansion functions in `hippie-expand-try-functions-list' are

17634:247c2a11843d

;;  how to improve it, and all those who helped to find and remove bugs.
;;

;;; Code:

(defgroup hippie-expand nil
  "Expand text trying various ways to find its expansion."
  :group 'abbrev)

(defvar he-num -1)

(defvar he-string-beg (make-marker))

(defvar he-string-end (make-marker))

  "The list of expansion functions tried in order by `hippie-expand'.
To change the behavior of `hippie-expand', remove, change the order of,
or insert functions in this list.")

;;;###autoload
(defcustom hippie-expand-verbose t
  "*Non-nil makes `hippie-expand' output which function it is trying."
  :type 'boolean
  :group 'hippie-expand)

;;;###autoload
(defcustom hippie-expand-max-buffers ()
  "*The maximum number of buffers (apart from the current) searched.
If nil, all buffers are searched."
  :type '(choice (const :tag "All" nil)
		 integer)
  :group 'hippie-expand)

;;;###autoload
(defcustom 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)"
  :type '(repeat (choice regexp (symbol :tag "Major Mode")))
  :group 'hippie-expand)

;;;###autoload
(defun hippie-expand (arg)
  "Try to expand text before point, using multiple methods.
The expansion functions in `hippie-expand-try-functions-list' are