From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 25 Mar 2025 18:16:03 +0000 (-0400)
Subject: backtrace.el: Remove redundant `put` and `:group`
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=99f9e0f355da6257491956ae353f8186a95c2aec;p=emacs.git

backtrace.el: Remove redundant `put` and `:group`

* lisp/emacs-lisp/backtrace.el: Remove redundant `:group` args.
Prefer # to quote function arguments.
(backtrace-mode): Remove redundant `put`.

(cherry picked from commit ce0c1f44429bc7e9757f6e81019d8c8c12ba5e55)
---

diff --git a/lisp/emacs-lisp/backtrace.el b/lisp/emacs-lisp/backtrace.el
index b395a13b0dd..468c743ff0e 100644
--- a/lisp/emacs-lisp/backtrace.el
+++ b/lisp/emacs-lisp/backtrace.el
@@ -48,7 +48,6 @@
 Set to nil to disable fontification, which may be necessary in
 order to debug the code that does fontification."
   :type 'boolean
-  :group 'backtrace
   :version "27.1")
 
 (defcustom backtrace-line-length 5000
@@ -59,7 +58,6 @@ shorter than this, but success is not guaranteed.  If set to nil
 or zero, backtrace mode will not abbreviate the forms it prints."
   :type '(choice natnum
                  (const :value nil :tag "Don't abbreviate"))
-  :group 'backtrace
   :version "27.1")
 
 ;;; Backtrace frame data structure
@@ -877,14 +875,12 @@ followed by `backtrace-print-frame', once for each stack frame."
   ;; (set-buffer-multibyte t)
   (setq-local revert-buffer-function #'backtrace-revert)
   (setq-local filter-buffer-substring-function #'backtrace--filter-visible)
-  (setq-local indent-line-function 'lisp-indent-line)
-  (setq-local indent-region-function 'lisp-indent-region)
+  (setq-local indent-line-function #'lisp-indent-line)
+  (setq-local indent-region-function #'lisp-indent-region)
   (add-function :around (local 'cl-print-expand-ellipsis-function)
                 #'backtrace--expand-ellipsis)
   (add-hook 'xref-backend-functions #'backtrace--xref-backend nil t))
 
-(put 'backtrace-mode 'mode-class 'special)
-
 ;;; Backtrace printing
 
 ;;;###autoload