comparison lisp/register.el @ 141:405b4fa6de27

*** empty log message ***

140:9de5f63b6407

(defvar register-alist nil
  "Alist of elements (NAME . CONTENTS), one for each Emacs register.
NAME is a character (a number).  CONTENTS is a string, number,
mark or list.  A list represents a rectangle; its elements are strings.")

(defun get-register (char)
  "Return contents of Emacs register named CHAR, or nil if none."
  (cdr (assq char register-alist)))

	(setcdr aelt value)
      (setq aelt (cons char value))
      (setq register-alist (cons aelt register-alist)))
    value))

(defun point-to-register (char)
  "Store current location of point in a register.
Argument is a character, naming the register."
  (interactive "cPoint to register: ")
  (set-register char (point-marker)))

(fset 'register-to-point 'jump-to-register)
(defun jump-to-register (char)
  "Move point to location stored in a register.
Argument is a character, naming the register."
  (interactive "cJump to register: ")
  (let ((val (get-register char)))
    (if (markerp val)
	(progn
	  (switch-to-buffer (marker-buffer val))
	  (goto-char val))
      (error "Register doesn't contain a buffer position"))))

;(defun number-to-register (arg char)
;  "Store a number in a register.
;Two args, NUMBER and REGISTER (a character, naming the register).
;If NUMBER is nil, digits in the buffer following point are read

141:405b4fa6de27

(defvar register-alist nil
  "Alist of elements (NAME . CONTENTS), one for each Emacs register.
NAME is a character (a number).  CONTENTS is a string, number,
screen configuration, mark or list.
A list represents a rectangle; its elements are strings.")

(defun get-register (char)
  "Return contents of Emacs register named CHAR, or nil if none."
  (cdr (assq char register-alist)))

	(setcdr aelt value)
      (setq aelt (cons char value))
      (setq register-alist (cons aelt register-alist)))
    value))

(defun point-to-register (char arg)
  "Store current location of point in register REGISTER.
With prefix argument, store current screen configuration.
Use \\[jump-to-register] to go to that location or restore that configuration.
Argument is a character, naming the register."
  (interactive "cPoint to register: \nP")
  (set-register char (if arg (current-screen-configuration) (point-marker))))

(fset 'register-to-point 'jump-to-register)
(defun jump-to-register (char)
  "Move point to location stored in a register.
Argument is a character, naming the register."
  (interactive "cJump to register: ")
  (let ((val (get-register char)))
    (condition-case ()
	(set-screen-configuration val)
      (error
       (if (markerp val)
	   (progn
	     (switch-to-buffer (marker-buffer val))
	     (goto-char val))
	 (error "Register doesn't contain a buffer position or screen configuration")))))

;(defun number-to-register (arg char)
;  "Store a number in a register.
;Two args, NUMBER and REGISTER (a character, naming the register).
;If NUMBER is nil, digits in the buffer following point are read