Mercurial > emacs
changeset 55049:20627b978043
(cperl-putback-char): Delete Emacs 18 definition.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Apr 2004 19:18:41 +0000 |
| parents | e703f6cf2d7f |
| children | 681e84aede6b |
| files | lisp/progmodes/cperl-mode.el |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)