From: Gerd Moellmann <gerd@gnu.org>
Date: Sat, 16 Oct 1999 12:00:02 +0000 (+0000)
Subject: (common-lisp-indent-function): Use `eq' instead of `eql'.
X-Git-Tag: emacs-pretest-21.0.90~6417
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=893d4ef0ad7838f0132571ae13514461e631db6e;p=emacs.git

(common-lisp-indent-function): Use `eq' instead of `eql'.
---

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index d038a6228a7..c4af6c4df9d 100644
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -161,15 +161,15 @@ by `lisp-body-indent'."
                    (setq method lisp-indent-defun-method)))
 
             (cond ((and (memq (char-after (1- containing-sexp)) '(?\' ?\`))
-                        (not (eql (char-after (- containing-sexp 2)) ?\#)))
+                        (not (eq (char-after (- containing-sexp 2)) ?\#)))
                    ;; No indentation for "'(...)" elements
                    (setq calculated (1+ sexp-column)))
-		  ((or (eql (char-after (1- containing-sexp)) ?\,)
-		       (and (eql (char-after (1- containing-sexp)) ?\@)
-			    (eql (char-after (- containing-sexp 2)) ?\,)))
+		  ((or (eq (char-after (1- containing-sexp)) ?\,)
+		       (and (eq (char-after (1- containing-sexp)) ?\@)
+			    (eq (char-after (- containing-sexp 2)) ?\,)))
 		   ;; ",(...)" or ",@(...)"
 		   (setq calculated normal-indent))
-                  ((eql (char-after (1- containing-sexp)) ?\#)
+                  ((eq (char-after (1- containing-sexp)) ?\#)
                    ;; "#(...)"
                    (setq calculated (1+ sexp-column)))
                   ((null method))