Lines Matching +defs:set +defs:line
76 (fset 'viper-move-overlay (symbol-function 'set-extent-endpoints))
80 (fset 'viper-overlay-put (symbol-function 'set-extent-property))
161 (set-frame-property
170 (defun viper-set-cursor-color-according-to-state (&optional frame)
277 ;; Return line position.
278 ;; If pos is 'start then returns position of line start.
279 ;; If pos is 'end, returns line end. If pos is 'mid, returns line center.
282 (defun viper-line-pos (pos)
287 (beginning-of-line))
289 (end-of-line))
291 (goto-char (+ (viper-line-pos 'start) (viper-line-pos 'end) 2)))
329 (set var (make-marker)))
418 (set-buffer (get-buffer-create viper-ex-tmp-buf-name))
440 (buffer-substring (point) (viper-line-pos 'end)))
443 (viper-get-filenames-from-buffer 'one-per-line))
450 ;; line
451 (defun viper-get-filenames-from-buffer (&optional one-per-line)
452 (let ((skip-chars (if one-per-line "\t\n" " \t\n"))
476 (set-buffer (get-buffer-create viper-ex-tmp-buf-name))
497 (set-buffer (get-buffer-create viper-ex-tmp-buf-name))
552 (set ring-var (make-ring (eval (intern (format "%S-size" ring-var))))))
556 ;; Since viper-set-destructive-command checks if we are inside
644 ;; tells if we are over a whitespace-only line
645 (defsubst viper-over-whitespace-line ()
647 (beginning-of-line)
666 (set-buffer buf)
690 (set-buffer buf)
792 (defun viper-set-replace-overlay (beg end)
817 (defun viper-set-replace-overlay-glyphs (before-glyph after-glyph)
819 (viper-set-replace-overlay (point-min) (point-min)))
828 (viper-set-replace-overlay-glyphs nil nil)
843 (defun viper-set-minibuffer-overlay ()
917 (set-buffer buf)
926 ;; like (set-mark-command nil) but doesn't push twice, if (car mark-ring)
928 (defsubst viper-set-mark-if-necessary ()
930 (set-mark-command nil)
1010 ;; Note: set unread-command-events only after testing for fast
1013 (viper-set-unread-command-events keyseq)
1015 (viper-set-unread-command-events keyseq)
1155 (defun viper-set-unread-command-events (arg)
1165 "viper-set-unread-command-events: Invalid argument, %S"
1180 "viper-set-unread-command-events: Invalid argument, %S" arg)))
1302 "Regexp matching the set of alphanumeric characters acceptable to strict
1305 "Regexp matching the set of alphanumeric characters acceptable to strict
1308 "Regexp matching the set of alphanumeric characters acceptable to strict
1318 (defun viper-update-syntax-classes (&optional set-default)
1328 (if set-default
1337 (defun viper-set-syntax-preference (&optional symbol value)
1360 Works best when set in the hooks to various major modes.
1380 :set 'viper-set-syntax-preference
1442 (defsubst viper-skip-all-separators-forward (&optional within-line)
1444 (if within-line
1449 (or within-line "\n")
1450 (if within-line (viper-line-pos 'end)))))
1452 (defsubst viper-skip-all-separators-backward (&optional within-line)
1454 (if within-line
1459 (or within-line "\n")
1460 (if within-line (viper-line-pos 'start)))))
1466 (viper-line-pos (if (eq direction 'forward) 'end 'start))))
1479 (viper-line-pos 'end))))
1490 (viper-line-pos 'start))))
1522 ;; if outside the range, set to nil