From 893d4ef0ad7838f0132571ae13514461e631db6e Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Sat, 16 Oct 1999 12:00:02 +0000 Subject: [PATCH] (common-lisp-indent-function): Use `eq' instead of `eql'. --- lisp/emacs-lisp/cl-indent.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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)) -- 2.39.5