diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-04-21 19:19:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-04-21 19:19:44 +0000 |
| commit | 0ce7de922c194ac869a90b55d3d187b6365c444d (patch) | |
| tree | a2ee2bf7ad8068fb33a6544ee0d284f6e40b338e /lisp/progmodes/cperl-mode.el | |
| parent | c12bc1fbd8f23c97b5488066abc32416df06fcf0 (diff) | |
| download | emacs-0ce7de922c194ac869a90b55d3d187b6365c444d.tar.gz emacs-0ce7de922c194ac869a90b55d3d187b6365c444d.tar.bz2 emacs-0ce7de922c194ac869a90b55d3d187b6365c444d.zip | |
(cperl-putback-char): Delete Emacs 18 definition.
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index e13198fb240..c651e06b899 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -926,12 +926,9 @@ the faces: please specify bold, italic, underline, shadow and box.) (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) |