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

2 files changed, 16 insertions, 14 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e873f621d2c..4a581107e08 100644
--- 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 3efb53111fd..f466f33c830 100644
--- 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