]> git.eshelyaron.com Git - emacs.git/commitdiff
backtrace.el: Remove redundant `put` and `:group`
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 25 Mar 2025 18:16:03 +0000 (14:16 -0400)
committerEshel Yaron <me@eshelyaron.com>
Thu, 27 Mar 2025 10:12:25 +0000 (11:12 +0100)
* lisp/emacs-lisp/backtrace.el: Remove redundant `:group` args.
Prefer # to quote function arguments.
(backtrace-mode): Remove redundant `put`.

(cherry picked from commit ce0c1f44429bc7e9757f6e81019d8c8c12ba5e55)

lisp/emacs-lisp/backtrace.el

index b395a13b0dd2c9094af89c2d813f11f91870c962..468c743ff0e5241a019a466bc94c22d0c4b4701a 100644 (file)
@@ -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