Mercurial > emacs
comparison lisp/emulation/viper.el @ 14580:1883960762e0
*** empty log message ***
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Fri, 16 Feb 1996 04:49:12 +0000 |
| parents | a81dd4e9603a |
| children | 4951b11970a1 |
comparison
equal
deleted
inserted
replaced
| 14579:a81dd4e9603a | 14580:1883960762e0 |
|---|---|
| 4837 ((= ?\] reg) | 4837 ((= ?\] reg) |
| 4838 (vip-heading-end arg)) | 4838 (vip-heading-end arg)) |
| 4839 ((vip-valid-register reg '(letter)) | 4839 ((vip-valid-register reg '(letter)) |
| 4840 (let* ((val (get-register (1+ (- reg ?a)))) | 4840 (let* ((val (get-register (1+ (- reg ?a)))) |
| 4841 (buf (if (not val) | 4841 (buf (if (not val) |
| 4842 (error | 4842 (error vip-EmptyTextmarker reg) |
| 4843 (format vip-EmptyTextmarker reg)) | |
| 4844 (marker-buffer val))) | 4843 (marker-buffer val))) |
| 4845 (pos (marker-position val)) | 4844 (pos (marker-position val)) |
| 4846 line-no text (s pos) (e pos)) | 4845 line-no text (s pos) (e pos)) |
| 4847 (save-excursion | 4846 (save-excursion |
| 4848 (set-buffer (get-buffer-create "*Output*")) | 4847 (set-buffer (get-buffer-create "*Output*")) |