comparison lisp/emulation/viper-cmd.el @ 19905:9a4cdbf423ea

(viper-smart-suffix-list): Fix customize type.
author Richard M. Stallman <rms@gnu.org>
date Sat, 13 Sep 1997 06:11:09 +0000
parents f20c96ca3bc8
children 9bc6a4017c8c
comparison
equal deleted inserted replaced
19904:1e0f71fd673c 19905:9a4cdbf423ea
1 ;;; viper-cmd.el --- Vi command support for Viper 1 ;;; viper-cmd.el --- Vi command support for Viper
2 ;; Copyright (C) 1997 Free Software Foundation, Inc. 2 ;; Copyright (C) 1997 Free Software Foundation, Inc.
3 3
4 ;; This file is part of GNU Emacs.
5
6 ;; GNU Emacs is free software; you can redistribute it and/or modify
7 ;; it under the terms of the GNU General Public License as published by
8 ;; the Free Software Foundation; either version 2, or (at your option)
9 ;; any later version.
10
11 ;; GNU Emacs is distributed in the hope that it will be useful,
12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;; GNU General Public License for more details.
15
16 ;; You should have received a copy of the GNU General Public License
17 ;; along with GNU Emacs; see the file COPYING. If not, write to the
18 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 ;; Boston, MA 02111-1307, USA.
4 20
5 ;; Code 21 ;; Code
6 22
7 (provide 'viper-cmd) 23 (provide 'viper-cmd)
8 (require 'advice) 24 (require 'advice)
1783 (exit-minibuffer)))) 1799 (exit-minibuffer))))
1784 1800
1785 1801
1786 (defcustom viper-smart-suffix-list 1802 (defcustom viper-smart-suffix-list
1787 '("" "tex" "c" "cc" "C" "el" "java" "html" "htm" "pl" "P" "p") 1803 '("" "tex" "c" "cc" "C" "el" "java" "html" "htm" "pl" "P" "p")
1788 "*List of suffixes that Viper automatically tries to append to filenames ending with a `.'. 1804 "*List of suffixes that Viper tries to append to filenames ending with a `.'.
1789 This is useful when you the current directory contains files with the same 1805 This is useful when you the current directory contains files with the same
1790 prefix and many different suffixes. Usually, only one of the suffixes 1806 prefix and many different suffixes. Usually, only one of the suffixes
1791 represents an editable file. However, file completion will stop at the `.' 1807 represents an editable file. However, file completion will stop at the `.'
1792 The smart suffix feature lets you hit RET in such a case, and Viper will 1808 The smart suffix feature lets you hit RET in such a case, and Viper will
1793 select the appropriate suffix. 1809 select the appropriate suffix.
1795 Suffixes are tried in the order given and the first suffix for which a 1811 Suffixes are tried in the order given and the first suffix for which a
1796 corresponding file exists is selected. If no file exists for any of the 1812 corresponding file exists is selected. If no file exists for any of the
1797 suffixes, the user is asked to confirm. 1813 suffixes, the user is asked to confirm.
1798 1814
1799 To turn this feature off, set this variable to nil." 1815 To turn this feature off, set this variable to nil."
1800 :type '(set string) 1816 :type '(repeat string)
1801 :group 'viper) 1817 :group 'viper)
1802 1818
1803 1819
1804 ;; Try to add a suitable suffix to files whose name ends with a `.' 1820 ;; Try to add a suitable suffix to files whose name ends with a `.'
1805 ;; Useful when the user hits RET on a non-completed file name. 1821 ;; Useful when the user hits RET on a non-completed file name.