Lines Matching defs:per
47 (defvar array-columns-per-line nil "Number of array columns per line.")
51 (defvar array-lines-per-row nil "Number of lines per array row.")
65 (let ((columns-last-line (% array-max-column array-columns-per-line)))
71 (>= array-buffer-line (* array-lines-per-row array-max-row))
75 (and (zerop (% (1+ array-buffer-line) array-lines-per-row))
83 (1+ (floor array-buffer-line array-lines-per-row))))
91 (zerop (% array-buffer-line array-lines-per-row))))
94 (* array-columns-per-line
96 (1- (% array-buffer-line array-lines-per-row))
97 (% array-buffer-line array-lines-per-row)))
139 (princ (format " columns-per-line: %s\n"
140 (prin1-to-string array-columns-per-line)))
145 (princ (format " lines-per-row: %s\n"
146 (prin1-to-string array-lines-per-row)))
177 (let ((goal-line (+ (* array-lines-per-row (1- a-row))
179 (floor (1- a-column) array-columns-per-line)))
180 (goal-column (* array-field-width (% (1- a-column) array-columns-per-line))))
189 (let ((goal-line (+ (* array-lines-per-row (1- a-row))
190 (% array-buffer-line array-lines-per-row)))
200 (let ((goal-line (+ (- array-buffer-line (% array-buffer-line array-lines-per-row))
202 (floor (1- a-column) array-columns-per-line)))
203 (goal-column (* array-field-width (% (1- a-column) array-columns-per-line))))
222 (forward-line (* sign array-lines-per-row))
240 ((and (= sign -1) (= 1 (% array-column array-columns-per-line)))
243 (* array-field-width (1- array-columns-per-line))))
245 ((and (= sign 1) (zerop (% array-column array-columns-per-line)))
635 (if (and (zerop (% this-column array-columns-per-line))
644 (defun array-reconfigure-rows (new-columns-per-line new-rows-numbered)
645 "Reconfigure the state of `array-rows-numbered' and `array-columns-per-line'.
646 NEW-COLUMNS-PER-LINE is the desired value of `array-columns-per-line' and
649 (interactive "nColumns per line: \ncRows numbered? (y or n) ")
650 ;; Check on new-columns-per-line
653 (if (and (>= new-columns-per-line 1)
654 (<= new-columns-per-line array-max-column))
656 (setq new-columns-per-line
659 (format "Columns per line (1 - %d): " array-max-column)))))))
676 (old-columns-per-line array-columns-per-line)
677 (old-lines-per-row array-lines-per-row)
701 ((= old-columns-per-line new-columns-per-line)
703 (forward-line (- old-lines-per-row (if old-rows-numbered 1 0))))
707 (floor (1- temp-max-column) old-columns-per-line))
710 (floor (1- temp-max-column) new-columns-per-line))
719 (move-to-column-untabify (* old-field-width new-columns-per-line))
729 (setq array-columns-per-line new-columns-per-line)
731 (setq array-line-length (* old-field-width new-columns-per-line))
732 (setq array-lines-per-row
733 (+ (floor (1- temp-max-column) new-columns-per-line)
841 array-columns-per-line: The number of columns in the array per line of buffer.
848 array-lines-per-row: The number of buffer lines used to display each row.
895 (set (make-local-variable 'array-columns-per-line)
896 (read-number "Array columns per line: "))
902 (* array-field-width array-columns-per-line))
903 (set (make-local-variable 'array-lines-per-row)
904 (+ (floor (1- array-max-column) array-columns-per-line)