Mercurial > emacs
comparison lisp/register.el @ 151:cca4fc067605
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 29 Dec 1990 00:56:09 +0000 |
| parents | 405b4fa6de27 |
| children | 6155e428f077 |
comparison
equal
deleted
inserted
replaced
| 150:00792257e669 | 151:cca4fc067605 |
|---|---|
| 57 (error | 57 (error |
| 58 (if (markerp val) | 58 (if (markerp val) |
| 59 (progn | 59 (progn |
| 60 (switch-to-buffer (marker-buffer val)) | 60 (switch-to-buffer (marker-buffer val)) |
| 61 (goto-char val)) | 61 (goto-char val)) |
| 62 (error "Register doesn't contain a buffer position or screen configuration"))))) | 62 (error "Register doesn't contain a buffer position or screen configuration")))))) |
| 63 | 63 |
| 64 ;(defun number-to-register (arg char) | 64 ;(defun number-to-register (arg char) |
| 65 ; "Store a number in a register. | 65 ; "Store a number in a register. |
| 66 ;Two args, NUMBER and REGISTER (a character, naming the register). | 66 ;Two args, NUMBER and REGISTER (a character, naming the register). |
| 67 ;If NUMBER is nil, digits in the buffer following point are read | 67 ;If NUMBER is nil, digits in the buffer following point are read |