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) |