]> git.eshelyaron.com Git - emacs.git/commitdiff
; remove incorrect quoting of condition names
authorMattias Engdegård <mattiase@acm.org>
Fri, 30 Dec 2022 10:11:14 +0000 (11:11 +0100)
committerMattias Engdegård <mattiase@acm.org>
Fri, 30 Dec 2022 10:24:31 +0000 (11:24 +0100)
lisp/abbrev.el
lisp/desktop.el
lisp/eshell/esh-proc.el
lisp/gnus/gnus-registry.el
lisp/image-mode.el
lisp/net/tramp.el
lisp/startup.el
test/lisp/emacs-lisp/multisession-tests.el
test/src/process-tests.el
test/src/regex-emacs-tests.el

index 2ca8e25dac7a40b3e031a7ce328ed95ae71be696..26c2b09792998797c960382d8879020942806d13 100644 (file)
@@ -501,7 +501,7 @@ PROPS is a list of properties."
 (defun abbrev-table-p (object)
   "Return non-nil if OBJECT is an abbrev table."
   (and (obarrayp object)
-       (numberp (ignore-error 'wrong-type-argument
+       (numberp (ignore-error wrong-type-argument
                   (abbrev-table-get object :abbrev-table-modiff)))))
 
 (defun abbrev-table-empty-p (object &optional ignore-system)
index ef73bc596df60991d8fd7bc7f03c2b5302b7cb48..d55739bb6f890562332b668b7dea7ac80e71ddfb 100644 (file)
@@ -828,7 +828,7 @@ is nil, ask the user where to save the desktop."
   ;; If we own it, we don't anymore.
   (when (eq (emacs-pid) (desktop-owner))
     ;; Allow exiting Emacs even if we can't delete the desktop file.
-    (ignore-error 'file-error
+    (ignore-error file-error
       (desktop-release-lock))))
 
 ;; ----------------------------------------------------------------------------
index 950922ea7f8755322383ece213085e94f14791e1..c56278aad024a7fc63e6738cd0f93df23539dacf 100644 (file)
@@ -467,7 +467,7 @@ PROC is the process that's exiting.  STRING is the exit message."
                           (if (process-get proc :eshell-busy)
                               (run-at-time 0 nil finish-io)
                             (when data
-                              (ignore-error 'eshell-pipe-broken
+                              (ignore-error eshell-pipe-broken
                                 (eshell-output-object
                                  data index handles)))
                             (eshell-close-handles
index cf5ca628cffbd70f25bd22df4ca792f66e77106d..c5cd4d7d6bed5a690a32b7f90facdf1b08d8d927 100644 (file)
@@ -394,7 +394,7 @@ This is not required after changing `gnus-registry-cache-file'."
             (with-no-warnings
               (eieio-persistent-read file 'registry-db))
           ;; Older EIEIO versions do not check the class name.
-          ('wrong-number-of-arguments
+          (wrong-number-of-arguments
            (eieio-persistent-read file)))))
   (gnus-message 5 "Reading Gnus registry from %s...done" file))
 
index bd208fbad466cd4c3528cf2f8045bb1cadebd43c..10af8c6cab901767dedd6db0169f1cfbd1e2410a 100644 (file)
@@ -1086,7 +1086,7 @@ Otherwise, display the image by calling `image-mode'."
                   (unwind-protect
                       (progn
                         (setq-local image-fit-to-window-lock t)
-                        (ignore-error 'remote-file-error
+                        (ignore-error remote-file-error
                           (image-toggle-display-image)))
                     (setq image-fit-to-window-lock nil)))))))))))
 
index e39c9ccc31aa98aeec40bcad30e9ee3967ea2e3a..acbd50dc0fbc5c62082d04bd4531a3783d62d210 100644 (file)
@@ -5439,7 +5439,7 @@ Wait, until the connection buffer changes."
        ;; Hide message in buffer.
        (narrow-to-region (point-max) (point-max))
        ;; Wait for new output.
-       (while (not (tramp-compat-ignore-error 'file-error
+       (while (not (tramp-compat-ignore-error file-error
                      (tramp-wait-for-regexp
                       proc 0.1 tramp-security-key-confirmed-regexp)))
          (when (tramp-check-for-regexp proc tramp-security-key-timeout-regexp)
index 6270de2ace69ab881798ff2afc731179d6db5835..5a383630774affa001d7ac4504172d9f0b36da30 100644 (file)
@@ -2921,7 +2921,7 @@ nil default-directory" name)
        (when (looking-at "#!")
          (forward-line))
        (let (value form)
-         (while (ignore-error 'end-of-file
+         (while (ignore-error end-of-file
                   (setq form (read (current-buffer))))
            (setq value (eval form t)))
          (kill-emacs (if (numberp value)
index 5807c27bd2024735f67ce922e2a85173292ece1d..68d9c9646ff16d161d54d44aad80a28b4104afe7 100644 (file)
@@ -94,7 +94,7 @@
                                   (dotimes (i 100)
                                     (cl-incf (multisession-value multisession--bar))))))))
             (while (process-live-p proc)
-              (ignore-error 'sqlite-locked-error
+              (ignore-error sqlite-locked-error
                 (message "multisession--bar %s" (multisession-value multisession--bar))
                 ;;(cl-incf (multisession-value multisession--bar))
                 )
index 7d3d9eb72b8c13e6e6f53ece923ce1fa9dd8c9b0..f0b9dc0fb9262afc763c87996470a845ab26a34a 100644 (file)
@@ -830,7 +830,7 @@ Return nil if that can't be determined."
   (when (eq process-tests--EMFILE-message :unknown)
     (setq process-tests--EMFILE-message
           (with-temp-buffer
-            (when (eql (ignore-error 'file-error
+            (when (eql (ignore-error file-error
                          (call-process "errno" nil t nil "EMFILE"))
                        0)
               (goto-char (point-min))
index b323f592dca31a1d7bdcf63c202199db8af5b0b4..977b2f63715589f5edcaf70da3b4af6c326b16bb 100644 (file)
@@ -273,7 +273,7 @@ on success"
      string
      (condition-case nil
          (if (string-match pattern string) nil 'search-failed)
-       ('invalid-regexp 'compilation-failed))
+       (invalid-regexp 'compilation-failed))
      bounds-ref substring-ref)))
 
 
@@ -518,7 +518,7 @@ known/benign differences in behavior.")
                what-failed
                (condition-case nil
                    (if (string-match pattern string) nil 'search-failed)
-                 ('invalid-regexp 'compilation-failed))
+                 (invalid-regexp 'compilation-failed))
 
                matches-observed
                (cl-loop for x from 0 to 20