(pr-get-symbol): Don't downcase.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e873f621d2c15d8fe5f61e58c791273ec7a993c1..4a581107e08a3ce939e5a38fbc6562ce330e6cd2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,14 +1,19 @@
+2004-11-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * printing.el (pr-get-symbol): Don't downcase.
+
 2004-11-10  Jay Belanger  <belanger@truman.edu>
+
        * calc/calc-aent.el (calc-do-quick-calc):  Use kill-new to append
-       string to kill-ring. 
+       string to kill-ring.
 
        * calc/calc-aent.el (calc-alg-exp, math-toks)
        (math-exp-pos,math-exp-old-pos, math-exp-token)
-       (math-exp-keep-spaces, math-exp-str):  New variables. 
-       (calc-do-alg-entry, calcAlg-equals, calcAlg-edit)       
+       (math-exp-keep-spaces, math-exp-str):  New variables.
+       (calc-do-alg-entry, calcAlg-equals, calcAlg-edit)
        (calcAlg-enter):  Use declared variable calc-alg-exp.
        (math-build-parse-table, math-find-user-token):  Use declared
-       variable math-toks. 
+       variable math-toks.
        (math-read-exprs, math-read-token, calc-check-user-syntax)
        (calc-match-user-syntax, match-factor-after, math-read-factor):
        Use declared variables math-exp-pos math-exp-old-pos.
@@ -17,17 +22,17 @@
        (match-factor-after, math-read-factor):  Use declared variable
        math-exp-token. 
        (math-read-exprs, math-read-expr-list, math-read-token)
-       (math-read-factor):  Use declared variable math-exp-keep-spaces. 
+       (math-read-factor):  Use declared variable math-exp-keep-spaces.
        (math-read-exprs, math-read-token):  Use declared variable
        math-exp-str.
        (calc-match-user-syntax):  Made m a local variable.
 
        * calc/calc-ext.el (math-read-expr):  Use declared variables
-       math-exp-pos, math-exp-old-pos, math-exp-str, math-exp-token, 
+       math-exp-pos, math-exp-old-pos, math-exp-str, math-exp-token,
        math-exp-keep-spaces.
 
        * calc/calc-forms.el (math-read-angle-bracket):  Use declared
-       variables math-exp-pos, math-exp-str. 
+       variables math-exp-pos, math-exp-str.
 
        * calc/calc-lang.el (math-parse-tex-sum):  Use declared variable
        math-exp-old-pos. 
@@ -35,12 +40,12 @@
        (math-parse-eqn-prime):  Use declared variable math-exp-token.
 
        * calc/calc-vec.el (math-read-brackets, math-check-for-commas):
-       Use declared variable math-exp-pos. 
+       Use declared variable math-exp-pos.
        (math-check-for-commas):  Use declared variable math-exp-str.
        (math-read-brackets):  Use declared variables math-exp-old-pos,
        math-exp-keep-spaces.
-       (math-read-brackets, math-read-vector, math-read-matrix):  Use
-       declared variable math-exp-token.
+       (math-read-brackets, math-read-vector, math-read-matrix):
+       Use declared variable math-exp-token.
 
 2004-11-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 

diff --git a/lisp/printing.el b/lisp/printing.el
index 3efb53111fd8d51b8c543b3499ca2c39dc5fd670..f466f33c830851d34aae615e30dd7d2cdc230ec7 100644 (file)
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -2474,9 +2474,6 @@ See `pr-ps-printer-alist'.")
 
 (eval-and-compile
   (defun pr-get-symbol (name)
-    ;; Recent versions of easy-menu downcase names before interning them.
-    (and (fboundp 'easy-menu-name-match)
-        (setq name (downcase name)))
     (or (intern-soft name)
        (make-symbol name)))
 
@@ -6385,5 +6382,5 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
 (provide 'printing)
 
 
-;;; arch-tag: 9ce9ac3f-0f60-4370-900b-1943215d9d18
+;; arch-tag: 9ce9ac3f-0f60-4370-900b-1943215d9d18
 ;;; printing.el ends here