(defun ++ nil "\ Increment the number (in base 10 representation) at point." (interactive) (byte-code "ÁˆÂÃ!…$ÄÅÆÇ!ÈÇ!\"!@ÉÆÇ!ÈÇ!\"ˆÊËT\"c)‡" [num nil looking-at "[-0-9]+" read-from-string buffer-substring match-beginning 0 match-end delete-region format "%d"] 11)) (defvar kbd-mac-counter 1) (defun insert-counter nil "\ Insert a numeral. The numeral inserted is one higher each time the command is run. Use M-x reset-counter to set the counter back to the prefix arg (1 default)." (interactive) (byte-code "ÁˆÂÃ\"cˆT‰‡" [kbd-mac-counter nil format "%d"] 3)) (defun reset-counter (arg) "\ Set the counter used by reset-counter to the prefix arg (1 default)." (interactive "p") (byte-code "ˆ ‰‡" [kbd-mac-counter arg nil] 2)) (defun input (arg) "\ Get input from the user during a keyboard macro. The input is read from the minibuffer and inserted at the point. The mark is set at the beginning of the input, unless a (non-nil) prefix argument is passed. The point is left at the end of the input." (interactive "P") (byte-code "ˆ† Ä`!ˆ ƒÂÅÆ!)‚\" ƒÇ‚\"ÈÉ!c‡" [arg executing-kbd-macro nil defining-kbd-macro push-mark read-from-minibuffer "Keyboard-macro input: " "" error "You're neither defining nor executing a keyboard macro!"] 4)) (defun goto-10 nil "\ End the current keyboard macro and make it loop back on itself endlessly. Note: this only works with the `last' keyboard macro; it will fail after you name the keyboard macro." (interactive) (byte-code "ˆƒà ˆÄÅ!‚ …ÆÇ!ˆÈ ˆÉÊ!‡" [defining-kbd-macro executing-kbd-macro nil end-kbd-macro message "Repeating keyboard macro defined." sit-for 0 call-last-kbd-macro error "You're neither defining nor executing a keyboard macro!"] 6))