Squash (setting-constant nil) bug

This commit is contained in:
Gerard Vermeulen 2022-12-10 13:31:06 +01:00
parent d9bd075f01
commit 177feb0c40

View File

@ -1249,7 +1249,8 @@ file.
#+name: lst:enable-vertico-mode #+name: lst:enable-vertico-mode
#+begin_src emacs-lisp #+begin_src emacs-lisp
(when (fboundp 'savehist-mode) (when (fboundp 'savehist-mode)
(savehist-mode +1) (savehist-mode +1))
(with-eval-after-load 'savehist-mode
(custom-set-variables (custom-set-variables
'(savehist-additional-variables '(savehist-additional-variables
'(eww-history '(eww-history
@ -4226,9 +4227,9 @@ and listing [[lst:setting-python-shell-virtualenv-root]] to set
("ipython" ("ipython"
(custom-set-variables (custom-set-variables
`(python-shell-interpreter `(python-shell-interpreter
,(or (executable-find "ipython3") (executable-find "ipython"))) ,(or (executable-find "ipython3") (executable-find "ipython"))))
'(python-shell-interpreter-args (setq python-shell-interpreter-args
"--simple-prompt --HistoryAccessor.enabled=False")))) "--simple-prompt --HistoryAccessor.enabled=False")))
(message "Now `python-shell-interpreter' equals %S" (message "Now `python-shell-interpreter' equals %S"
python-shell-interpreter)))) python-shell-interpreter))))
#+end_src #+end_src
@ -4990,19 +4991,12 @@ Listing [[lst:configure-browse-url]] configures =browse-url=.
(seq (+? nonl) (or ".mp4" ".webm") eos))) (seq (+? nonl) (or ".mp4" ".webm") eos)))
"Match hyperlinks to browse with mpv.") "Match hyperlinks to browse with mpv.")
(if (version< emacs-version "28.0")
(custom-set-variables
'(browse-url-browser-function
`((,browse-url-mpv-regexp . browse-url-mpv)
("." . eww-browse-url))))
(custom-set-variables
'(browse-url-handlers
`((,browse-url-mpv-regexp . browse-url-mpv)
("." . eww-browse-url)))))
(custom-set-variables (custom-set-variables
`(browse-url-generic-program ,(or (when (eq system-type 'darwin) "open") `(browse-url-generic-program ,(or (when (eq system-type 'darwin) "open")
(executable-find "firefox"))))) (executable-find "firefox")))
'(browse-url-handlers
`((,browse-url-mpv-regexp . browse-url-mpv)
("." . eww-browse-url)))))
#+end_src #+end_src
*** [[https://en.wikipedia.org/wiki/Eww_(web_browser)][Emacs Web Wowser]] *** [[https://en.wikipedia.org/wiki/Eww_(web_browser)][Emacs Web Wowser]]
@ -5148,19 +5142,21 @@ initializes a list of =webjump-sites=.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(with-eval-after-load 'gnus (with-eval-after-load 'gnus
(custom-set-variables (custom-set-variables
'(gnus-select-method '(nntp "news.gmane.io")) '(gnus-select-method '(nntp "news.gmane.io"))))
(with-eval-after-load 'gnus-start
(custom-set-variables (with-eval-after-load 'gnus-start
'(gnus-check-bogus-newsgroups nil) (custom-set-variables
'(gnus-check-new-newsgroups 'ask-server) '(gnus-check-bogus-newsgroups nil)
'(gnus-read-newsrc-file t) '(gnus-check-new-newsgroups 'ask-server)
'(gnus-read-active-file 'some) '(gnus-read-newsrc-file t)
'(gnus-save-killed-list t) '(gnus-read-active-file 'some)
'(gnus-save-newsrc-file t) '(gnus-save-killed-list t)
'(gnus-use-dribble-file t))) '(gnus-save-newsrc-file t)
(with-eval-after-load 'gnus-sum '(gnus-use-dribble-file t)))
(custom-set-variables
'(gnus-thread-hide-subtree t))))) (with-eval-after-load 'gnus-sum
(custom-set-variables
'(gnus-thread-hide-subtree t)))
#+end_src #+end_src
** [[info:emacs#Sending Mail][Sending Mail (info)]] ** [[info:emacs#Sending Mail][Sending Mail (info)]]