[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d4a32c4: Autoload all commands from misc.el
From: |
Jorgen Schäfer |
Subject: |
[Emacs-diffs] master d4a32c4: Autoload all commands from misc.el |
Date: |
Sat, 22 Oct 2016 11:14:13 +0000 (UTC) |
branch: master
commit d4a32c4d5955ac04c5017a43042d873e42b3ebec
Author: Jorgen Schaefer <address@hidden>
Commit: Jorgen Schaefer <address@hidden>
Autoload all commands from misc.el
Only two of the commands there were autoloaded, one of which is an
easter egg.
* lisp/miscl.el (copy-from-above-command):
* lisp/miscl.el (zap-up-to-char):
* lisp/miscl.el (mark-beginning-of-buffer):
* lisp/miscl.el (mark-end-of-buffer):
* lisp/miscl.el (upcase-char):
* lisp/miscl.el (forward-to-word):
* lisp/miscl.el (backward-to-word):
Add autoload cookie.
---
lisp/misc.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/lisp/misc.el b/lisp/misc.el
index 5fc3e7d..3a73977 100644
--- a/lisp/misc.el
+++ b/lisp/misc.el
@@ -28,6 +28,7 @@
(eval-when-compile
(require 'tabulated-list))
+;;;###autoload
(defun copy-from-above-command (&optional arg)
"Copy characters from previous nonblank line, starting just above point.
Copy ARG characters, but not past the end of that line.
@@ -62,6 +63,7 @@ The characters copied are inserted in the buffer before
point."
;; Variation of `zap-to-char'.
+;;;###autoload
(defun zap-up-to-char (arg char)
"Kill up to, but not including ARGth occurrence of CHAR.
Case is ignored if `case-fold-search' is non-nil in the current buffer.
@@ -80,22 +82,26 @@ Ignores CHAR at point."
;; These were added with an eye to making possible a more CCA-compatible
;; command set; but that turned out not to be interesting.
+;;;###autoload
(defun mark-beginning-of-buffer ()
"Set mark at the beginning of the buffer."
(interactive)
(push-mark (point-min)))
+;;;###autoload
(defun mark-end-of-buffer ()
"Set mark at the end of the buffer."
(interactive)
(push-mark (point-max)))
+;;;###autoload
(defun upcase-char (arg)
"Uppercasify ARG chars starting from point. Point doesn't move."
(interactive "p")
(save-excursion
(upcase-region (point) (progn (forward-char arg) (point)))))
+;;;###autoload
(defun forward-to-word (arg)
"Move forward until encountering the beginning of a word.
With argument, do this that many times."
@@ -103,6 +109,7 @@ With argument, do this that many times."
(or (re-search-forward (if (> arg 0) "\\W\\b" "\\b\\W") nil t arg)
(goto-char (if (> arg 0) (point-max) (point-min)))))
+;;;###autoload
(defun backward-to-word (arg)
"Move backward until encountering the end of a word.
With argument, do this that many times."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d4a32c4: Autoload all commands from misc.el,
Jorgen Schäfer <=