;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:47:02 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/misc.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/misc.el' was compiled for Emacs 19")) #@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ÀÁŠÅyˆÆÇ!ˆÈÀxˆÉ\f!ˆ\nƒ\"Ë\n!‚#d\fiWƒHhÌUƒDÍ i\fZ^Î\" ‰i\fZ^Z‚HÆÇ!ˆ\n`ŠÀˆ`) `\\^{P)\nc+‡" [nil "" string n cc 0 backward-char 1 " \n" move-to-column arg prefix-numeric-value 9 make-string 32] 5 (#$ . 478) "P"])