larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2024-11-26 07:28:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Don't use circular lists...

Browse Source 
See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=57957
This commit is contained in:
larstvei 2022-10-10 22:52:55 +02:00
parent 03c1538b37
commit f03e232ef9
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
init.org
View File

@ -407,11 +407,12 @@
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun cycle-themes () (defun cycle-themes ()
"Returns a function that lets you cycle your themes." "Returns a function that lets you cycle your themes."
(let ((themes '#1=(nano-light nano-dark . #1#))) (let ((themes '(nano-light nano-dark)))
(lambda () (lambda ()
(interactive) (interactive)
;; Rotates the thme cycle and changes the current theme. ;; Rotates the thme cycle and changes the current theme.
(load-theme (car (setq themes (cdr themes))) t) (let ((rotated (nconc (cdr themes) (list (car themes)))))
(load-theme (car (setq themes rotated)) t))
(message (concat "Switched to " (symbol-name (car themes))))))) (message (concat "Switched to " (symbol-name (car themes)))))))
#+END_SRC #+END_SRC
@ -535,13 +536,13 @@
"Changes the ispell dictionary to the first element in "Changes the ispell dictionary to the first element in
ISPELL-LANGUAGES, and returns an interactive function that cycles ISPELL-LANGUAGES, and returns an interactive function that cycles
the languages in ISPELL-LANGUAGES when invoked." the languages in ISPELL-LANGUAGES when invoked."
(let ((ispell-languages '#1=("american" "norsk" . #1#))) (let ((ispell-languages (list "american" "norsk")))
(ispell-change-dictionary (car ispell-languages)) (ispell-change-dictionary (car ispell-languages))
(lambda () (lambda ()
(interactive) (interactive)
;; Rotates the languages cycle and changes the ispell dictionary. ;; Rotates the languages cycle and changes the ispell dictionary.
(ispell-change-dictionary (let ((rotated (nconc (cdr ispell-languages) (list (car ispell-languages)))))
(car (setq ispell-languages (cdr ispell-languages))))))) (ispell-change-dictionary (car (setq ispell-languages rotated)))))))
#+END_SRC #+END_SRC
=flyspell= signals an error if there is no spell-checking tool is =flyspell= signals an error if there is no spell-checking tool is