procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cperl-putback-char): Delete Emacs 18 definition.

Browse source
This commit is contained in:
Richard M. Stallman 2004-04-21 19:19:44 +00:00
parent c12bc1fbd8
commit 0ce7de922c
2 changed files with 27 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/ChangeLog
View file

@ -1,3 +1,27 @@
2004-04-21 Richard M. Stallman <rms@gnu.org>
* 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 <handa@m17n.org>
* descr-text.el (describe-char): Make it work on *Help* buffer.

9
lisp/progmodes/cperl-mode.el
View file

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