From: Stefan Monnier Date: Tue, 9 Nov 2004 14:37:10 +0000 (+0000) Subject: (easy-menu-intern): Revert to no-downcasing. X-Git-Tag: ttn-vms-21-2-B4~4046 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c90b629443728a9f6b054f351a7ac21c958ed69;p=emacs.git (easy-menu-intern): Revert to no-downcasing. (easy-menu-name-match): Revert correspondingly. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 97449ad3c7f..14333dfe9d0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-09 Stefan + + * emacs-lisp/easymenu.el (easy-menu-intern): Revert to no-downcasing. + (easy-menu-name-match): Revert correspondingly. + 2004-11-09 Richard M. Stallman * emacs-lisp/bytecomp.el (byte-compile-defalias): @@ -18,16 +23,16 @@ 2004-11-09 Jay Belanger * calc/calc.el (calc-mode-hook, calc-trail-mode-hook) - (calc-start-hook, calc-end-hook, calc-load-hook): New variables. + (calc-start-hook, calc-end-hook, calc-load-hook): New variables. - * calc/calc.el (calc, calc-trail-display, calc-mode): Removed - obsolete sections. + * calc/calc.el (calc, calc-trail-display, calc-mode): + Remove obsolete sections. - * calc/calc.el (calc-x-paste-text): Removed. + * calc/calc.el (calc-x-paste-text): Remove. + + * calc/calc-ext.el (calc-init-extensions): Bind calc-yank to + mouse-2. - * calc/calc-ext.el (calc-init-extensions): Bound calc-yank to - mouse-2. - 2004-11-09 Nick Roberts * progmodes/gdb-ui.el (gdb-current-stack-level): New variable. @@ -35,6 +40,15 @@ current frame (in case of recursive calls). (gdb-show-changed-values): Add :version keyword. +2004-11-08 Stefan Monnier + + * international/mule.el: Fix some warnings. + + * international/mule-cmds.el: Change coding-system to utf-8. + (select-safe-coding-system-interactively): + New function extracted from select-safe-coding-system. + (select-safe-coding-system): Use it. + 2004-11-08 Richard M. Stallman * subr.el (syntax-after): Doc fix. @@ -60,16 +74,16 @@ 2004-11-08 Jay Belanger * calc/calcalg2.el (math-do-integral-methods): Try linear then - non-linear substitutions. + non-linear substitutions. 2004-11-08 Jay Belanger * calc/calcalg2.el (math-linear-subst-tried): New variable. - (math-do-integral): Set `math-linear-subst-tried' to nil. + (math-do-integral): Set `math-linear-subst-tried' to nil. (math-do-integral-methods): Use `math-linear-subst-tried' to - determine what type of substitution to try. - (math-integ-try-linear-substituion): Set - `math-linear-subst-tried' to t. + determine what type of substitution to try. + (math-integ-try-linear-substituion): + Set `math-linear-subst-tried' to t. 2004-11-08 Kim F. Storm @@ -91,7 +105,7 @@ * simple.el (next-error group, face): Move before first use. (next-error-highlight, next-error-highlight-no-select): Likewise. - * simple.el (line-move-invisible-p): Renamed from line-move-invisible. + * simple.el (line-move-invisible-p): Rename from line-move-invisible. (line-move): New args NOERROR and TO-END. Return t if if succeed in moving specified number of lines. (move-end-of-line): New function. @@ -105,21 +119,21 @@ * emacs-lisp/elp.el (elp-results): Delete wasteful beginning-of-buffer. - * international/iso-cvt.el (iso-cvt-define-menu): - menu-bar-files-menu renamed to menu-bar-file-menu. + * international/iso-cvt.el (iso-cvt-define-menu): + Rename menu-bar-files-menu to menu-bar-file-menu. * net/browse-url.el (browse-url-gnome-moz-program) (browse-url-gnome-moz-arguments): Move up before first use. * net/tramp.el (tramp group): Add :version. - * progmodes/ada-xref.el (ada-gdb-application): + * progmodes/ada-xref.el (ada-gdb-application): Use goto-char instead of beginning-of-buffer. - * progmodes/cperl-mode.el (cperl-info-on-command): + * progmodes/cperl-mode.el (cperl-info-on-command): Use goto-char instead of beginning-of-buffer. - * progmodes/idlw-shell.el (idlwave-shell-examine-map): + * progmodes/idlw-shell.el (idlwave-shell-examine-map): Move up before first use. (idlwave-shell-temp-pro-file): Likewise. (idlwave-shell-temp-rinfo-save-file): Likewise. @@ -130,9 +144,8 @@ 2004-11-06 Kai Grossjohann - * net/tramp.el (tramp-coding-commands): Additionally try "uudecode - -o /dev/stdout" before trying "uudecode -o -". Suggested by Han - Boetes. + * net/tramp.el (tramp-coding-commands): Additionally try "uudecode -o + /dev/stdout" before trying "uudecode -o -". Suggested by Han Boetes. (tramp-uudecode): Mention `uudecode -o /dev/stdout'. 2004-11-06 David Ponce @@ -150,7 +163,7 @@ * emacs-lisp/easymenu.el (easy-menu-get-map): Fix last change. -2004-11-06 Stefan Monnier +2004-11-06 Stefan * emacs-lisp/easymenu.el (easy-menu-get-map-look-for-name): Remove. (easy-menu-lookup-name): New fun to replace it. @@ -189,8 +202,7 @@ 2004-11-04 Daniel Pfeiffer - * files.el (set-auto-mode): Don't get error after setting - -*-mode-*-. + * files.el (set-auto-mode): Don't get error after setting -*-mode-*-. 2004-11-04 Jan Dj,Ad(Brv @@ -312,8 +324,7 @@ (icalendar-convert-diary-to-ical) (icalendar-extract-ical-from-buffer): Use only two args for make-obsolete (XEmacs compatibility). - (icalendar-export-file, icalendar-import-file): Blank at end of - prompt. + (icalendar-export-file, icalendar-import-file): Blank at end of prompt. (icalendar-export-region): Doc fix. If error, return non-nil and write errors to a buffer. Use correct weekday for weekly recurring events. @@ -353,16 +364,16 @@ 2004-11-02 Pavel Kobiakov - * progmodes/flymake.el (flymake-err-line-patterns): Use - `flymake-reformat-err-line-patterns-from-compile-el' to convert + * progmodes/flymake.el (flymake-err-line-patterns): + Use `flymake-reformat-err-line-patterns-from-compile-el' to convert `compilation-error-regexp-alist-alist' to internal Flymake format. * progmodes/flymake.el: eliminated byte-compiler warnings. 2004-11-01 Jay Belanger - * calc/calc-frac.el (calc-over-notation): Replaced - `completing-read' with `interactive "s"'. + * calc/calc-frac.el (calc-over-notation): Replace `completing-read' + with `interactive "s"'. 2004-11-01 Jan Dj,Ad(Brv diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 7b18756fd7e..f42f326ba0a 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -42,25 +42,7 @@ menus, turn this variable off, otherwise it is probably better to keep it on." :version "20.3") (defsubst easy-menu-intern (s) - (if (stringp s) - (let ((copy (copy-sequence s)) - (pos 0) - found) - ;; For each letter that starts a word, flip its case. - ;; This way, the usual convention for menu strings (capitalized) - ;; corresponds to the usual convention for menu item event types - ;; (all lower case). It's a 1-1 mapping so causes no conflicts. - (while (setq found (string-match "\\<\\sw" copy pos)) - (setq pos (match-end 0)) - (unless (= (upcase (aref copy found)) - (downcase (aref copy found))) - (aset copy found - (if (= (upcase (aref copy found)) - (aref copy found)) - (downcase (aref copy found)) - (upcase (aref copy found)))))) - (intern copy)) - s)) + (if (stringp s) (intern s) s)) ;;;###autoload (put 'easy-menu-define 'lisp-indent-function 'defun) @@ -437,8 +419,7 @@ ITEM should be a keymap binding of the form (KEY . MENU-ITEM)." (error nil)) ;`item' might not be a proper list. ;; Also check the string version of the symbol name, ;; for backwards compatibility. - (eq (car-safe item) (intern name)) - (eq (car-safe item) (easy-menu-intern name))))))) + (eq (car-safe item) (intern name))))))) (defun easy-menu-always-true-p (x) "Return true if form X never evaluates to nil."