From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 11 Nov 2004 15:01:34 +0000 (+0000)
Subject: (pr-get-symbol): Don't downcase.
X-Git-Tag: ttn-vms-21-2-B4~4006
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a502e66dc91e7dcca25e099cfa905a2ece24177;p=emacs.git

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

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