Function: picture-tab-search

picture-tab-search is an interactive and byte-compiled function defined in picture.el.gz.

Signature

(picture-tab-search &optional ARG)

Documentation

Move to column beneath next interesting char in previous line.

With ARG move to column occupied by next interesting character in this line. The character must be preceded by whitespace.
"interesting characters" are defined by variable picture-tab-chars.
If no such character is found, move to beginning of line.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/picture.el.gz
(defun picture-tab-search (&optional arg)
  "Move to column beneath next interesting char in previous line.
With ARG move to column occupied by next interesting character in this
line.  The character must be preceded by whitespace.
\"interesting characters\" are defined by variable `picture-tab-chars'.
If no such character is found, move to beginning of line."
  (interactive "^P")
  (let ((target (current-column)))
    (save-excursion
      (if (and (not arg)
	       (progn
		 (beginning-of-line)
		 (skip-chars-backward
		  (concat "^" (string-replace
			       "\\" "\\\\" picture-tab-chars))
		  (point-min))
		 (not (bobp))))
	  (move-to-column target))
      (if (re-search-forward
	   (concat "[ \t]+[" picture-tab-chars "]")
	   (line-end-position)
	   'move)
	  (setq target (1- (current-column)))
	(setq target nil)))
    (if target
	(move-to-column target t)
      (beginning-of-line))))