/[emacs]/emacs/lisp/progmodes/cperl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/cperl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.46.4.1 by handa, Fri Apr 16 12:50:34 2004 UTC revision 1.46.4.2 by miles, Mon Jun 28 07:29:42 2004 UTC
# Line 926  the faces: please specify bold, italic, Line 926  the faces: please specify bold, italic,
926  (defun cperl-putback-char (c)           ; Emacs 19  (defun cperl-putback-char (c)           ; Emacs 19
927    (set 'unread-command-events (list c))) ; Avoid undefined warning    (set 'unread-command-events (list c))) ; Avoid undefined warning
928    
929  (if (boundp 'unread-command-events)  (if cperl-xemacs-p
930      (if cperl-xemacs-p      (defun cperl-putback-char (c)       ; XEmacs >= 19.12
931          (defun cperl-putback-char (c)   ; XEmacs >= 19.12        (setq unread-command-events (list (eval '(character-to-event c))))))
           (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  
932    
933  (or (fboundp 'uncomment-region)  (or (fboundp 'uncomment-region)
934      (defun uncomment-region (beg end)      (defun uncomment-region (beg end)

Legend:
Removed from v.1.46.4.1  
changed lines
  Added in v.1.46.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26