Mercurial > emacs
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. |