;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:59 2007 ;;; from file /home/cyd/emacs/lisp/misc.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`misc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@248 Copy characters from previous nonblank line, starting just above point. Copy ARG characters, but not past the end of that line. If no argument given, copy the entire rest of the line. The characters copied are inserted in the buffer before point. (defalias 'copy-from-above-command #[(&optional arg) "i\304\305\212\306 \210\307u\210\310\304x\210\311\n!\210 \203\312 !\202 d\niW\203Dh\313U\203A\314 i\nZ^\315\" \211i\nZ^Z\202D\307u\210`\212\304\210`) `\\^{P)c+\207" [string n cc arg nil "" beginning-of-line -1 " \n" move-to-column prefix-numeric-value 9 make-string 32] 5 (#$ . 556) "P"]) #@211 Kill up to, but not including ARGth occurrence of CHAR. Case is ignored if `case-fold-search' is non-nil in the current buffer. Goes backward if ARG is negative; error if CHAR not found. Ignores CHAR at point. (defalias 'zap-up-to-char #[(arg char) "\303Y\203\n\304\202 \305\306` u\210\307\216\310\311\n!\312\211$\210)`\")\207" [arg direction char 0 1 -1 kill-region ((byte-code "[u\207" [direction] 1)) search-forward char-to-string nil] 7 (#$ . 1168) "p\ncZap up to char: "]) #@42 Set mark at the beginning of the buffer. (defalias 'mark-beginning-of-buffer #[nil "\300e!\207" [push-mark] 2 (#$ . 1658) nil]) #@36 Set mark at the end of the buffer. (defalias 'mark-end-of-buffer #[nil "\300d!\207" [push-mark] 2 (#$ . 1792) nil]) #@65 Uppercasify ARG chars starting from point. Point doesn't move. (defalias 'upcase-char #[(arg) "\212\301`u\210`\")\207" [arg upcase-region] 3 (#$ . 1914) "p"]) #@98 Move forward until encountering the beginning of a word. With argument, do this that many times. (defalias 'forward-to-word #[(arg) "\301\302V\203 \303\202\f\304\305\306$\206\302V\203d\202eb\207" [arg re-search-forward 0 "\\W\\b" "\\b\\W" nil t] 5 (#$ . 2081) "p"]) #@93 Move backward until encountering the end of a word. With argument, do this that many times. (defalias 'backward-to-word #[(arg) "\301[!\207" [arg forward-to-word] 2 (#$ . 2364) "p"]) (provide 'misc)