# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1082575121 0
# Node ID 20627b9780437dcdf38a55fad1249403032b71dd
# Parent  e703f6cf2d7fa530b7d3b2a170a54f352ea18b9a
(cperl-putback-char): Delete Emacs 18 definition.

diff -r e703f6cf2d7f -r 20627b978043 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Wed Apr 21 19:17:03 2004 +0000
+++ b/lisp/progmodes/cperl-mode.el	Wed Apr 21 19:18:41 2004 +0000
@@ -926,12 +926,9 @@
 (defun cperl-putback-char (c)		; Emacs 19
   (set 'unread-command-events (list c))) ; Avoid undefined warning
 
-(if (boundp 'unread-command-events)
-    (if cperl-xemacs-p
-	(defun cperl-putback-char (c)	; XEmacs >= 19.12
-	  (setq unread-command-events (list (eval '(character-to-event c))))))
-  (defun cperl-putback-char (c)		; XEmacs <= 19.11
-    (set 'unread-command-event (eval '(character-to-event c))))) ; Avoid warnings
+(if cperl-xemacs-p
+    (defun cperl-putback-char (c)	; XEmacs >= 19.12
+      (setq unread-command-events (list (eval '(character-to-event c))))))
 
 (or (fboundp 'uncomment-region)
     (defun uncomment-region (beg end)