# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1100185294 0
# Node ID a93efc8bd56c26814ad16facb2cc4a1acfdbcae7
# Parent  3bdbcfe4d4e004f6042789045afb29d2a6925ce7
(pr-get-symbol): Don't downcase.

diff -r 3bdbcfe4d4e0 -r a93efc8bd56c lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Nov 11 14:54:26 2004 +0000
+++ b/lisp/ChangeLog	Thu Nov 11 15:01:34 2004 +0000
@@ -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 -r 3bdbcfe4d4e0 -r a93efc8bd56c lisp/printing.el
--- a/lisp/printing.el	Thu Nov 11 14:54:26 2004 +0000
+++ b/lisp/printing.el	Thu Nov 11 15:01:34 2004 +0000
@@ -2474,9 +2474,6 @@
 
 (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 @@
 (provide 'printing)
 
 
-;;; arch-tag: 9ce9ac3f-0f60-4370-900b-1943215d9d18
+;; arch-tag: 9ce9ac3f-0f60-4370-900b-1943215d9d18
 ;;; printing.el ends here