Mercurial > hg > xemacs-beta

comparison lisp/viper/viper.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children e04119814345
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
6 ;; Keywords: emulations 6 ;; Keywords: emulations
7 ;; Author: Michael Kifer <kifer@cs.sunysb.edu> 7 ;; Author: Michael Kifer <kifer@cs.sunysb.edu>
8 8
9 ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc. 9 ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
10 10
11 (defconst viper-version "2.93 of February 13, 1997" 11 (defconst viper-version "2.93 of February 25, 1997"
12 "The current version of Viper") 12 "The current version of Viper")
13 13
14 ;; This file is part of GNU Emacs. 14 ;; This file is part of GNU Emacs.
15 15
16 ;; GNU Emacs is free software; you can redistribute it and/or modify 16 ;; GNU Emacs is free software; you can redistribute it and/or modify
363 (defconst vip-charpair-commands '(?c ?d ?y ?! ?= ?< ?> ?r ?R)) 363 (defconst vip-charpair-commands '(?c ?d ?y ?! ?= ?< ?> ?r ?R))
364 ;; define vip-charpair-command-p 364 ;; define vip-charpair-command-p
365 (vip-test-com-defun vip-charpair-command) 365 (vip-test-com-defun vip-charpair-command)
366 366
367 (defconst vip-movement-commands '(?b ?B ?e ?E ?f ?F ?G ?h ?H ?j ?k ?l 367 (defconst vip-movement-commands '(?b ?B ?e ?E ?f ?F ?G ?h ?H ?j ?k ?l
368 ?H ?M ?n ?t ?T ?w ?W ?$ ?% 368 ?H ?M ?L ?n ?t ?T ?w ?W ?$ ?%
369 ?^ ?( ?) ?- ?+ ?| ?{ ?} ?[ ?] ?' ?` 369 ?^ ?( ?) ?- ?+ ?| ?{ ?} ?[ ?] ?' ?`
370 ?; ?, ?0 ?? ?/ 370 ?; ?, ?0 ?? ?/
371 ) 371 )
372 "Movement commands") 372 "Movement commands")
373 ;; define vip-movement-command-p 373 ;; define vip-movement-command-p
3834 buffer-name))) 3834 buffer-name)))
3835 (kill-buffer buffer) 3835 (kill-buffer buffer)
3836 (error "Buffer not killed")))) 3836 (error "Buffer not killed"))))
3837 3837
3838 3838
3839 (defvar vip-smart-suffix-list '("" "tex" "c" "cc" "el" "p") 3839 (defvar vip-smart-suffix-list
3840 '("" "tex" "c" "cc" "el" "java" "html" "pl" "P" "p")
3840 "*List of suffixes that Viper automatically tries to append to filenames ending with a `.'. 3841 "*List of suffixes that Viper automatically tries to append to filenames ending with a `.'.
3841 This is useful when you the current directory contains files with the same 3842 This is useful when you the current directory contains files with the same
3842 prefix and many different suffixes. Usually, only one of the suffixes 3843 prefix and many different suffixes. Usually, only one of the suffixes
3843 represents an editable file. However, file completion will stop at the `.' 3844 represents an editable file. However, file completion will stop at the `.'
3844 The smart suffix feature lets you hit RET in such a case, and Viper will 3845 The smart suffix feature lets you hit RET in such a case, and Viper will