Revision: [email protected]/emacs--devo--0--patch-27

Creator:  Michael Olson <[email protected]>

Merge ERC-related Viper hacks into Viper.

2 files changed, 7 insertions, 75 deletions

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 5d533ed258..97732f1220 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -17,6 +17,11 @@
 	sections may be skipped if using the version of ERC that comes
 	with Emacs.
 
+2006-01-29  Edward O'Connor  <[email protected]>
+
+	* erc-viper.el: Remove. Now that ERC is included in Emacs, these
+	work-arounds live in Viper itself.
+
 2006-01-28  Michael Olson  <[email protected]>
 
 	* erc-*.el, erc.texi, NEWS: Add Arch taglines as per Emacs
@@ -200,7 +205,8 @@
 	* erc.el, erc-backend.el, erc-ezbounce.el, erc-list.el,
 	erc-log.el, erc-match.el, erc-nets.el, erc-netsplit.el,
 	erc-nicklist.el, erc-nickserv.el, erc-notify.el, erc-pcomplete.el:
-	Use (eval-when-compile 'cl), so that compilation doesn't fail.
+	Use (eval-when-compile (require 'cl)), so that compilation doesn't
+	fail.
 
 	* erc-fill.el, erc-truncate.el: Whitespace munging.
 
diff --git a/lisp/erc/erc-viper.el b/lisp/erc/erc-viper.el
deleted file mode 100644
index 0d6ff04ff9..0000000000
--- a/lisp/erc/erc-viper.el
+++ /dev/null
@@ -1,74 +0,0 @@
-;;; erc-viper.el --- Viper compatibility hacks for ERC
-
-;; Copyright (C) 2005 Free Software Foundation, Inc.
-
-;; Author: Edward O'Connor <[email protected]>
-;; Keywords: emulation
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-
-;; Viper is a VI emulation mode for Emacs. ERC and Viper don't quite get
-;; along by default; the code in this file fixes that. A simple
-;;   (require 'erc-viper)
-;; in your ~/.ercrc.el should be all it takes for you to use ERC and
-;; Viper together happily.
-
-;;; Code:
-
-(require 'viper)
-
-;; We need this for `erc-mode-hook' and `erc-buffer-list'. Perhaps it
-;; would be better to use an `eval-after-load', so that there could be
-;; some autodetection / loading of this file from within erc.el?
-(require 'erc)
-
-;; Fix RET in ERC buffers, by telling Viper to pass RET through to the
-;; normal keymap.
-
-(add-to-list 'viper-major-mode-modifier-list
-             '(erc-mode insert-state viper-comint-mode-modifier-map))
-(add-to-list 'viper-major-mode-modifier-list
-             '(erc-mode vi-state viper-comint-mode-modifier-map))
-
-(viper-apply-major-mode-modifiers)
-
-;; Ensure that ERC buffers come up in insert state.
-(add-to-list 'viper-insert-state-mode-list 'erc-mode)
-
-;; Fix various local variables in Viper.
-(add-hook 'erc-mode-hook 'viper-comint-mode-hook)
-
-;; Fix ERC buffers that already exist (buffers in which `erc-mode-hook'
-;; has already been run).
-(mapc (lambda (buf)
-        (with-current-buffer buf
-          (viper-comint-mode-hook)
-          ;; If there *is* a final newline in this buffer, delete it, as
-          ;; it interferes with ERC /-commands.
-          (let ((last (1- (point-max))))
-            (when (eq (char-after last) ?\n)
-              (goto-char last)
-              (delete-char 1)))))
-      (erc-buffer-list))
-
-(provide 'erc-viper)
-
-;; arch-tag: 659fa645-e9ad-428c-ad53-8304d9f900f6
-;;; erc-viper.el ends here