Lines Matching +defs:current +defs:column
69 ;; When a cursor is on a wide-column character (e.g. Chinese,
70 ;; Japanese, Korean), this variable tells the desired current column
71 ;; which may be different from (current-column).
72 (defvar picture-desired-column 0)
74 ;; If the value of picture-desired-column is far from the current
75 ;; column, or if the arg ADJUST-TO-CURRENT is non-nil, set it to the
76 ;; current column. Return the current column.
77 (defun picture-update-desired-column (adjust-to-current)
78 (let ((current-column (current-column)))
79 (if (or adjust-to-current
80 (< picture-desired-column (1- current-column))
81 (> picture-desired-column (1+ current-column)))
82 (setq picture-desired-column current-column))
83 current-column))
92 (setq picture-desired-column 0))
95 "Position point after last non-blank character on current line.
102 (setq picture-desired-column (current-column)))
104 (defun picture-forward-column (arg &optional interactive)
109 (picture-update-desired-column interactive)
110 (setq picture-desired-column (max 0 (+ picture-desired-column arg)))
111 (let ((current-column (move-to-column picture-desired-column t)))
112 (if (and (> current-column picture-desired-column)
115 ;; column of a multi-column character.
118 (defun picture-backward-column (arg &optional interactive)
122 (picture-update-desired-column interactive)
123 (picture-forward-column (- arg)))
130 (picture-update-desired-column nil)
132 (let ((current-column (move-to-column picture-desired-column t)))
133 (if (> current-column picture-desired-column)
146 (picture-update-desired-column nil)
171 With prefix argument, move up and two-column left."
177 With prefix argument, move up and two-column right."
183 With prefix argument, move down and two-column left."
189 With prefix argument, move down and two-column right."
195 The mode line is updated to reflect the current direction."
211 (picture-forward-column picture-horizontal-step)))
214 "Move point in direction of current picture motion in Picture mode.
220 (picture-forward-column (* arg picture-horizontal-step)))
223 "Move point in direction opposite of current picture motion in Picture mode.
236 (current-row (count-lines (window-start) (line-beginning-position))))
237 (unless (equal x (current-column))
238 (picture-forward-column (- x (current-column))))
239 (unless (equal y current-row)
240 (picture-move-down (- y current-row)))))
258 (if (/= picture-desired-column (current-column))
259 (move-to-column picture-desired-column t))
260 (let ((col (+ picture-desired-column width)))
263 (move-to-column col t)
275 (picture-update-desired-column (not (eq this-command last-command)))
278 (defun picture-clear-column (arg)
281 (let* ((original-col (current-column))
284 (move-to-column target-col t)
286 (move-to-column original-col)
290 (setq picture-desired-column (current-column)))
292 (defun picture-backward-clear-column (arg)
295 (picture-clear-column (- arg)))
325 "Insert an empty line after the current line.
333 "Insert a duplicate of the current line, below it."
347 (setq ocolumn (current-column))
352 (setq change (- (current-column) ocolumn))
360 (move-to-column (+ change (current-column)) t)
399 every column occupied by an \"interesting character\" that is preceded
415 (setq tabs (cons (current-column) tabs)))
427 "Move to column beneath next interesting char in previous line.
428 With ARG move to column occupied by next interesting character in this
433 (let ((target (current-column)))
442 (move-to-column target))
447 (setq target (1- (current-column)))
450 (move-to-column target t)
463 (column (current-column)))
465 (indent-to column)))))
490 (let ((column (current-column))
497 (move-to-column column t))))
541 (picture-forward-column (length (car rectangle)))
547 (defun picture-current-line ()
550 (if (= (current-column) 0) 1 0)))
555 (let* ((sl (picture-current-line))
556 (sc (current-column))
559 (c1 (progn (goto-char start) (current-column)))
560 (r1 (picture-current-line))
561 (c2 (progn (goto-char end) (current-column)))
562 (r2 (picture-current-line))
568 (move-to-column left t)
569 (picture-update-desired-column t)
573 (picture-insert picture-rectangle-h (- right picture-desired-column))
577 (picture-insert picture-rectangle-v (- bottom (picture-current-line)))
581 (picture-insert picture-rectangle-h (- picture-desired-column left))
585 (picture-insert picture-rectangle-v (- (picture-current-line) top))
589 (move-to-column sc t)))
608 (picture-substitute 'forward-char 'picture-forward-column)
609 (picture-substitute 'backward-char 'picture-backward-column)
610 (picture-substitute 'delete-char 'picture-clear-column)
612 (picture-substitute 'backward-delete-char-untabify 'picture-backward-clear-column)
613 (picture-substitute 'delete-backward-char 'picture-backward-clear-column)
687 The current direction is displayed in the mode line. The initial
692 Move vertically to SAME column in previous line: \\[picture-move-down]
693 Move vertically to SAME column in next line: \\[picture-move-up]
694 Move to column following last
696 Move right, inserting spaces if required: \\[picture-forward-column]
697 Move left changing tabs to spaces if required: \\[picture-backward-column]
698 Move in direction of current picture motion: \\[picture-motion]
699 Move opposite to current picture motion: \\[picture-motion-reverse]
704 Move to column beneath (or at) next interesting
712 Clear ARG columns after point without moving: \\[picture-clear-column]
714 Clear ARG columns backward: \\[picture-backward-clear-column]
717 Open blank line(s) beneath current line: \\[picture-open-line]
739 (set (make-local-variable 'picture-mode-old-local-map) (current-local-map))