Revert "Use equal and member instead of eq and memq"

This reverts commit f4b430140f.

Please don't install anything on the release branch that is not
strictly necessary fro Emacs 29.

lisp/cedet/semantic/complete.el

@@ -1731,7 +1731,7 @@ Display mechanism using tooltip for a list of possible completions.")
       ;; Add any tail info.
       (setq msg (concat msg msg-tail))
       ;; Display tooltip.
-      (when (not (equal msg ""))
+      (when (not (eq msg ""))
 	(semantic-displayer-tooltip-show msg)))))
 
 ;;; Compatibility

lisp/descr-text.el

@@ -366,7 +366,7 @@ This function is semi-obsolete.  Use `get-char-code-property'."
 ;; description is added to the category name as a tooltip
 (defsubst describe-char-categories (category-set)
   (let ((mnemonics (category-set-mnemonics category-set)))
-    (unless (equal mnemonics "")
+    (unless (eq mnemonics "")
       (list (mapconcat
 	     (lambda (x)
 	       (let* ((c (category-docstring x))

lisp/emulation/viper-cmd.el

@@ -194,9 +194,9 @@
 			   viper-delete-backward-char
 			   viper-join-lines
 			   viper-delete-char))
-      (member (viper-event-key last-command-event)
-	      '(up down left right (meta f) (meta b)
-		(control n) (control p) (control f) (control b)))))
+      (memq (viper-event-key last-command-event)
+	    '(up down left right (meta f) (meta b)
+		 (control n) (control p) (control f) (control b)))))
 
 (defsubst viper-insert-state-pre-command-sentinel ()
   (or (viper-preserve-cursor-color)

lisp/mh-e/mh-identity.el

@@ -141,7 +141,7 @@ See `mh-identity-list'."
            (cons '("None")
                  (mapcar #'list (mapcar #'car mh-identity-list)))
            nil t default nil default))
-    (if (equal identity "None")
+    (if (eq identity "None")
         nil
       identity)))
 

lisp/transient.el

@@ -2203,7 +2203,7 @@ value.  Otherwise return CHILDREN as is."
     (unless abort-only
       (setq post-command
             (lambda () "@transient--delay-post-command"
-              (let ((act (and (not (equal (this-command-keys-vector) []))
+              (let ((act (and (not (eq (this-command-keys-vector) []))
                               (or (eq this-command command)
                                   ;; `execute-extended-command' was
                                   ;; used to call another command
@@ -2236,7 +2236,7 @@ value.  Otherwise return CHILDREN as is."
   (transient--debug 'post-command)
   (transient--with-emergency-exit
     (cond
-     ((and (equal (this-command-keys-vector) [])
+     ((and (eq (this-command-keys-vector) [])
            (= (minibuffer-depth)
               (1+ transient--minibuffer-depth)))
       (transient--suspend-override)

lisp/vc/vc-git.el

@@ -1661,8 +1661,7 @@ This requires git 1.8.4 or later, for the \"-L\" option of \"git log\"."
                                  (if branchp "branch" "tag"))))
          (if branchp
              (vc-git-command nil 0 nil "checkout" "-b" name
-                             (when (and start-point
-                                        (not (equal start-point "")))
+                             (when (and start-point (not (eq start-point "")))
                                start-point))
            (vc-git-command nil 0 nil "tag" name)))))
 

test/lisp/emacs-lisp/cl-lib-tests.el

@@ -404,7 +404,7 @@
 (ert-deftest cl-lib-nth-value-test-multiple-values ()
   "While CL multiple values are an alias to list, these won't work."
   :expected-result :failed
-  (should (equal (cl-nth-value 0 '(2 3)) '(2 3)))
+  (should (eq (cl-nth-value 0 '(2 3)) '(2 3)))
   (should (= (cl-nth-value 0 1) 1))
   (should (null (cl-nth-value 1 1)))
   (should-error (cl-nth-value -1 (cl-values 2 3)) :type 'args-out-of-range)