Mercurial > emacs

changeset 26047:e6efd0ace0f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(common-lisp-indent-function): Use `eq' instead of `eql'.
author Gerd Moellmann <gerd@gnu.org>
date Sat, 16 Oct 1999 12:00:02 +0000
parents 9204dfa34c1b
children 898ee3cee36a
files lisp/emacs-lisp/cl-indent.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-indent.el	Sat Oct 16 11:24:23 1999 +0000
+++ b/lisp/emacs-lisp/cl-indent.el	Sat Oct 16 12:00:02 1999 +0000
@@ -161,15 +161,15 @@
                    (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))