[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/progmodes/cperl-mode.el
diff -c emacs/lisp/progmodes/cperl-mode.el:1.46.4.1 
emacs/lisp/progmodes/cperl-mode.el:1.46.4.2
*** emacs/lisp/progmodes/cperl-mode.el:1.46.4.1 Fri Apr 16 12:50:34 2004
--- emacs/lisp/progmodes/cperl-mode.el  Mon Jun 28 07:29:42 2004
***************
*** 926,937 ****
  (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
  
  (or (fboundp 'uncomment-region)
      (defun uncomment-region (beg end)
--- 926,934 ----
  (defun cperl-putback-char (c)         ; Emacs 19
    (set 'unread-command-events (list c))) ; Avoid undefined warning
  
! (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)