diff options
| author | Case Duckworth | 2022-01-04 00:41:00 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-04 00:41:00 -0600 |
| commit | 9a48d3bd8b7b03b27a40416ca506fbcc5570b180 (patch) | |
| tree | 472a2e8877b9b280b5b1cb679ef035aa485d489b | |
| parent | Clean up whitespace regardless (diff) | |
| download | emacs-9a48d3bd8b7b03b27a40416ca506fbcc5570b180.tar.gz emacs-9a48d3bd8b7b03b27a40416ca506fbcc5570b180.zip | |
Add +remember-prefix-arg function
| -rw-r--r-- | lisp/acdw.el | 6 |
1 files changed, 6 insertions, 0 deletions
| diff --git a/lisp/acdw.el b/lisp/acdw.el index 43cb5c7..a4e12f1 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
| @@ -83,5 +83,11 @@ If Emacs is already started, run FUNCTION. Otherwise, add it to | |||
| 83 | (funcall function) | 83 | (funcall function) |
| 84 | (add-hook 'after-init-hook function))) | 84 | (add-hook 'after-init-hook function))) |
| 85 | 85 | ||
| 86 | (defun +remember-prefix-arg (p-arg P-arg) | ||
| 87 | "Display prefix ARG, in \"p\" and \"P\" `interactive' types. | ||
| 88 | I keep forgetting how they differ." | ||
| 89 | (interactive "p\nP") | ||
| 90 | (message "p: %S P: %S" p-arg P-arg)) | ||
| 91 | |||
| 86 | (provide 'acdw) | 92 | (provide 'acdw) |
| 87 | ;;; acdw.el ends here | 93 | ;;; acdw.el ends here |