| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465 |
- (custom-set-variables
- ;; custom-set-variables was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(safe-local-variable-values
- '((eval progn
- (require 'lisp-mode)
- (defun emacs27-lisp-fill-paragraph
- (&optional justify)
- (interactive "P")
- (or
- (fill-comment-paragraph justify)
- (let
- ((paragraph-start
- (concat paragraph-start "\\|\\s-*\\([(;\"]\\|\\s-:\\|`(\\|#'(\\)"))
- (paragraph-separate
- (concat paragraph-separate "\\|\\s-*\".*[,\\.]$"))
- (fill-column
- (if
- (and
- (integerp emacs-lisp-docstring-fill-column)
- (derived-mode-p 'emacs-lisp-mode))
- emacs-lisp-docstring-fill-column fill-column)))
- (fill-paragraph justify))
- t))
- (setq-local fill-paragraph-function #'emacs27-lisp-fill-paragraph))
- (eval modify-syntax-entry 43 "'")
- (eval modify-syntax-entry 36 "'")
- (eval modify-syntax-entry 126 "'")
- (eval let
- ((root-dir-unexpanded
- (locate-dominating-file default-directory ".dir-locals.el")))
- (when root-dir-unexpanded
- (let*
- ((root-dir
- (expand-file-name root-dir-unexpanded))
- (root-dir*
- (directory-file-name root-dir)))
- (unless
- (boundp 'geiser-guile-load-path)
- (defvar geiser-guile-load-path 'nil))
- (make-local-variable 'geiser-guile-load-path)
- (require 'cl-lib)
- (cl-pushnew root-dir* geiser-guile-load-path :test #'string-equal))))
- (eval with-eval-after-load 'yasnippet
- (let
- ((guix-yasnippets
- (expand-file-name "etc/snippets/yas"
- (locate-dominating-file default-directory ".dir-locals.el"))))
- (unless
- (member guix-yasnippets yas-snippet-dirs)
- (add-to-list 'yas-snippet-dirs guix-yasnippets)
- (yas-reload-all))))
- (eval setq-local guix-directory
- (locate-dominating-file default-directory ".dir-locals.el"))
- (eval add-to-list 'completion-ignored-extensions ".go"))))
- (custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- )
- (put 'narrow-to-region 'disabled nil)
|
