Lines Matching refs:val
102 (let ((val (get-register register)))
104 ((and (consp val) (frame-configuration-p (car val)))
105 (set-frame-configuration (car val) (not delete))
106 (goto-char (cadr val)))
107 ((and (consp val) (window-configuration-p (car val)))
108 (set-window-configuration (car val))
109 (goto-char (cadr val)))
110 ((markerp val)
111 (or (marker-buffer val)
113 (switch-to-buffer (marker-buffer val))
114 (goto-char val))
115 ((and (consp val) (eq (car val) 'file))
116 (find-file (cdr val)))
117 ((and (consp val) (eq (car val) 'file-query))
118 (or (find-buffer-visiting (nth 1 val))
119 (y-or-n-p (format "Visit file %s again? " (nth 1 val)))
121 (find-file (nth 1 val))
122 (goto-char (nth 2 val)))
165 (let ((val (get-register register)))
166 (if (null val)
186 (let ((val (get-register register)))
188 ((numberp val)
189 (princ val))
191 ((markerp val)
192 (let ((buf (marker-buffer val)))
198 (princ (marker-position val)))))
200 ((and (consp val) (window-configuration-p (car val)))
203 ((and (consp val) (frame-configuration-p (car val)))
206 ((and (consp val) (eq (car val) 'file))
208 (prin1 (cdr val))
211 ((and (consp val) (eq (car val) 'file-query))
213 (prin1 (car (cdr val)))
215 (princ (car (cdr (cdr val))))
218 ((consp val)
222 (while val
224 (princ (car val))
226 (setq val (cdr val))))
228 (princ (car val))))
230 ((stringp val)
232 (set-text-properties 0 (length val) nil val)
233 (remove-list-of-text-properties 0 (length val)
234 yank-excluded-properties val))
238 (princ val))
244 val)
246 (princ (match-string 0 val)))
247 ((string-match "^[ \t\n]+$" val)
253 (if verbose (prin1 val))))))
262 (let ((val (get-register register)))
264 ((consp val)
265 (insert-rectangle val))
266 ((stringp val)
267 (insert-for-yank val))
268 ((numberp val)
269 (princ val (current-buffer)))
270 ((and (markerp val) (marker-position val))
271 (princ (marker-position val) (current-buffer)))