Lines Matching +defs:copy +defs:marker
20 ;; You should have received a copy of the GNU General Public License
318 ;; Like move-marker but creates a virgin marker if arg isn't already a marker.
324 ;; Then, each time this var is used in `viper-move-marker-locally' in a new
325 ;; buffer, a new marker will be created.
326 (defun viper-move-marker-locally (var pos &optional buffer)
329 (set var (make-marker)))
330 (move-marker (eval var) pos buffer))
911 ;; checks if object is a marker, has a buffer, and points to within that buffer
912 (defun viper-valid-marker (marker)
913 (if (and (markerp marker) (marker-buffer marker))
914 (let ((buf (marker-buffer marker))
915 (pos (marker-position marker)))
920 (defsubst viper-mark-marker ()
922 (mark-marker t) ; xemacs
923 (mark-marker) ; emacs
929 (setq mark-ring (delete (viper-mark-marker) mark-ring))
967 (defun viper-copy-event (event)
969 (copy-event event) ; xemacs
1573 (copy-sequence seq)))