diff options
| author | Case Duckworth | 2021-06-06 23:26:28 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-06-06 23:27:01 -0500 |
| commit | 41ffc15191d335fb3e17b23cd9a463009d289724 (patch) | |
| tree | 66d650c14e752039c9c096feede57dda38a49609 | |
| parent | Add unfill-region (diff) | |
| download | emacs-41ffc15191d335fb3e17b23cd9a463009d289724.tar.gz emacs-41ffc15191d335fb3e17b23cd9a463009d289724.zip | |
Write function to require private.el
| -rw-r--r-- | gnus.el | 2 | ||||
| -rw-r--r-- | init.el | 2 | ||||
| -rw-r--r-- | lisp/acdw.el | 4 |
3 files changed, 6 insertions, 2 deletions
| diff --git a/gnus.el b/gnus.el index d179937..31a06e0 100644 --- a/gnus.el +++ b/gnus.el | |||
| @@ -17,7 +17,7 @@ | |||
| 17 | ;;; Code: | 17 | ;;; Code: |
| 18 | 18 | ||
| 19 | ;;; Private files | 19 | ;;; Private files |
| 20 | (require 'acdw-private) | 20 | (acdw/require-private) |
| 21 | 21 | ||
| 22 | ;;; Select Methods | 22 | ;;; Select Methods |
| 23 | (setq gnus-select-method '(nnnil "")) | 23 | (setq gnus-select-method '(nnnil "")) |
| diff --git a/init.el b/init.el index ac830c2..357f7da 100644 --- a/init.el +++ b/init.el | |||
| @@ -46,7 +46,7 @@ | |||
| 46 | (normal-top-level-add-subdirs-to-load-path)) | 46 | (normal-top-level-add-subdirs-to-load-path)) |
| 47 | 47 | ||
| 48 | ;;;; Private stuff | 48 | ;;;; Private stuff |
| 49 | (require 'acdw-private) | 49 | (acdw/require-private) |
| 50 | 50 | ||
| 51 | 51 | ||
| 52 | ;;;; Utility functions and variables | 52 | ;;;; Utility functions and variables |
| diff --git a/lisp/acdw.el b/lisp/acdw.el index 48e754d..2f878a9 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
| @@ -410,6 +410,10 @@ Prompt only if there are unsaved changes." | |||
| 410 | (custom-set-faces '(fringe | 410 | (custom-set-faces '(fringe |
| 411 | ((t (:foreground "dim gray")))))) | 411 | ((t (:foreground "dim gray")))))) |
| 412 | 412 | ||
| 413 | (defun acdw/require-private () | ||
| 414 | "Require `acdw-private', which is in private.el." | ||
| 415 | (require 'acdw-private "private.el")) | ||
| 416 | |||
| 413 | 417 | ||
| 414 | ;;; URL regexp | 418 | ;;; URL regexp |
| 415 | ;; really, I just want to add gemini:// protocol, but I'm going to do some | 419 | ;; really, I just want to add gemini:// protocol, but I'm going to do some |