* src/fns.c (Fcompare_strings): Use FETCH_STRING_CHAR_AS_MULTIBYTE_ADVANCE.

* lisp/calc/calc-alg.el (math-beforep):
* lisp/progmodes/cc-guess.el (c-guess-view-reorder-offsets-alist-in-style):
Simplify because string-lessp can accept symbols as args.

3 files changed, 9 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 850edf64c28..8ff7e5247e6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-06-26  Dmitry Antipov  <dmantipov@yandex.ru>
+
+	* calc/calc-alg.el (math-beforep):
+	* progmodes/cc-guess.el (c-guess-view-reorder-offsets-alist-in-style):
+	Simplify because string-lessp can accept symbols as args.
+
 2014-06-26  Daiki Ueno  <ueno@gnu.org>
 
 	* emacs-lisp/package.el (package--check-signature): If
diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el
index 4bd37a4982d..c26b007bb96 100644
--- a/lisp/calc/calc-alg.el
+++ b/lisp/calc/calc-alg.el
@@ -293,7 +293,7 @@
 	 (Math-objectp a))
 	((eq (car a) 'var)
 	 (if (eq (car b) 'var)
-	     (string-lessp (symbol-name (nth 1 a)) (symbol-name (nth 1 b)))
+	     (string-lessp (nth 1 a) (nth 1 b))
 	   (not (Math-numberp b))))
 	((eq (car b) 'var) (Math-numberp a))
 	((eq (car a) (car b))
@@ -302,7 +302,7 @@
 	 (and b
 	      (or (null a)
 		  (math-beforep (car a) (car b)))))
-	(t (string-lessp (symbol-name (car a)) (symbol-name (car b))))))
+	(t (string-lessp (car a) (car b)))))
 
 
 (defsubst math-simplify-extended (a)
diff --git a/lisp/progmodes/cc-guess.el b/lisp/progmodes/cc-guess.el
index abde007cd04..5424e8d4a61 100644
--- a/lisp/progmodes/cc-guess.el
+++ b/lisp/progmodes/cc-guess.el
@@ -504,8 +504,7 @@ is called with one argument, the guessed style."
 		      (cond
 		       ((or (and a-guessed? b-guessed?)
 			    (not (or a-guessed? b-guessed?)))
-			(string-lessp (symbol-name (car a))
-				      (symbol-name (car b))))
+			(string-lessp (car a) (car b)))
 		       (a-guessed? t)
 		       (b-guessed? nil)))))))
   style)