*** empty log message ***

[bpt/emacs.git] / lisp / emulation / viper.el

diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index 0d88858..9d0ec98 100644 (file)
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -6,11 +6,11 @@
 ;;  Keywords: emulations
 ;;  Author: Michael Kifer <kifer@cs.sunysb.edu>
 
-(defconst viper-version "2.85 of February 14, 1996"
-  "The current version of Viper")
-
 ;; Copyright (C) 1994, 1995, 1996 Free Software Foundation, Inc.
 
+(defconst viper-version "2.86 of March 14, 1996"
+  "The current version of Viper")
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
@@ -293,6 +293,7 @@
 ;;    much easier.
 ;;
 
+;; Code
 
 (require 'advice)
 (require 'cl)
@@ -300,6 +301,15 @@
 
 (require 'viper-util)
 
+;; Compiler pacifier
+(defvar vip-minibuffer-current-face)
+(defvar vip-minibuffer-insert-face)
+(defvar vip-minibuffer-vi-face)
+(defvar vip-minibuffer-emacs-face)
+(defvar iso-accents-mode)
+(defvar zmacs-region-stays)
+;; end pacifier
+
 \f
 ;;; Variables
              
@@ -2417,11 +2427,11 @@ Undo previous insertion and inserts new."
       (end-of-line)
       ;; make sure all lines end with newline, unless in the minibuffer or
       ;; when requested otherwise (require-final-newline is nil)
-      (if (and
-          (eobp)
-          (not (bolp))
-          require-final-newline
-          (not (vip-is-in-minibuffer)))
+      (if (and (eobp)
+              (not (bolp))
+              require-final-newline
+              (not (vip-is-in-minibuffer))
+              (not buffer-read-only))
          (insert "\n"))))
 
 (defun vip-yank-defun ()