Compare commits

...

3 Commits

Author SHA1 Message Date
836429db1c
Fix obsolete usage of lexical-let 2022-08-04 18:52:11 +02:00
5a0a5b5ea6
Set some variables new in Emacs 28.1
See their respective doc-strings for further information.
2022-08-04 18:49:55 +02:00
43e3edcd43
Use emoji style to render smileys
It's not clear to me where this new option is taking effect, though.
2022-08-04 18:48:55 +02:00

26
init.el
View File

@ -403,9 +403,12 @@
visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow) visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow)
history-delete-duplicates t history-delete-duplicates t
track-eol t track-eol t
gc-cons-threshold (* 100 1024 1024) ; 100mb gc-cons-threshold (* 100 1024 1024) ; 100mb
read-process-output-max (* 1024 1024) ; 1mb read-process-output-max (* 1024 1024) ; 1mb
next-error-message-highlight t) next-error-message-highlight t
help-enable-symbol-autoload t
describe-bindings-outline t
redisplay-skip-fontification-on-input t)
(when (memq system-type '(gnu gnu/linux gnu/kfreebsd)) (when (memq system-type '(gnu gnu/linux gnu/kfreebsd))
(setq x-wait-for-event-timeout nil)) (setq x-wait-for-event-timeout nil))
@ -1971,6 +1974,9 @@ respectively."
:commands (moody-replace-mode-line-buffer-identification :commands (moody-replace-mode-line-buffer-identification
moody-replace-vc-mode)) moody-replace-vc-mode))
(use-package smiley
:init (setq smiley-style 'emoji))
;; * Dired ;; * Dired
@ -2055,15 +2061,15 @@ respectively."
"Compare marked files in dired with ediff." "Compare marked files in dired with ediff."
;; from: https://oremacs.com/2017/03/18/dired-ediff/ ;; from: https://oremacs.com/2017/03/18/dired-ediff/
(interactive) (interactive)
(lexical-let ((files (dired-get-marked-files)) (let ((files (dired-get-marked-files))
(wnd (current-window-configuration))) (wnd (current-window-configuration)))
(if (<= (length files) 2) (if (<= (length files) 2)
(lexical-let ((file1 (car files)) (let ((file1 (car files))
(file2 (if (cdr files) (file2 (if (cdr files)
(cadr files) (cadr files)
(read-file-name (read-file-name
"file: " "file: "
(dired-dwim-target-directory))))) (dired-dwim-target-directory)))))
(if (file-newer-than-file-p file1 file2) (if (file-newer-than-file-p file1 file2)
(ediff-files file2 file1) (ediff-files file2 file1)
(ediff-files file1 file2)) (ediff-files file1 file2))