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*")) |