From 0ce7de922c194ac869a90b55d3d187b6365c444d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Apr 2004 19:19:44 +0000 Subject: [PATCH] (cperl-putback-char): Delete Emacs 18 definition. --- lisp/ChangeLog | 24 ++++++++++++++++++++++++ lisp/progmodes/cperl-mode.el | 9 +++------ 2 files changed, 27 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0f688890aa7..71673e8e6c7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,27 @@ +2004-04-21 Richard M. Stallman + + * progmodes/cperl-mode.el (cperl-putback-char): + Delete Emacs 18 definition. + + * international/mule.el (ctext-post-read-conversion): + Use assoc-string, not assoc-ignore-case. + + * international/mule-cmds.el: Use assoc-string, not assoc-ignore-case. + + * emacs-lisp/easymenu.el (easy-menu-add): + Do call x-popup-menu, but only if it's defined. + + * emacs-lisp/disass.el (disassemble): Handle lambda-exp as arg. + + * emacs-lisp/bytecomp.el (byte-compile-no-warnings): + Handle multiple args: compile like progn. + + * emacs-lisp/byte-run.el (with-no-warnings): Simplify: + take all args as &rest arg. + + * autoinsert.el (auto-insert-alist): Insert the user's name in + copyright notice, rather than Free Software Foundation. + 2004-04-21 Kenichi Handa * descr-text.el (describe-char): Make it work on *Help* buffer. 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) -- 2.39.5