diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-10-16 12:00:02 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-10-16 12:00:02 +0000 |
| commit | 893d4ef0ad7838f0132571ae13514461e631db6e (patch) | |
| tree | 9398c7eb41b69d708b29f1bbf74810c4bcc7d88b | |
| parent | 43b4a21f4e1ad5a085af3d56be3c9d62f54174e3 (diff) | |
| download | emacs-893d4ef0ad7838f0132571ae13514461e631db6e.tar.gz | |
(common-lisp-indent-function): Use `eq' instead of `eql'.
| -rw-r--r-- | lisp/emacs-lisp/cl-indent.el | 10 |
1 files 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)) |