Lines Matching defs:nil
122 ;; to nil.
126 ;; is set to nil.
166 ;; next-line-add-newlines was set to nil.
207 (error nil))
209 nil ;; We've got what we needed
212 nil)
221 (defgroup artist nil
225 (defgroup artist-text nil
230 "Interactively do rubber-banding when non-nil."
253 the rectangle package changes), you can set this variable to nil, and the
258 (defvar artist-arrows [ ?> nil ?v ?L ?< nil ?^ nil ]
265 direction, or nil if there is no suitable character to use for arrow
285 If non-nil, line-endings are trimmed (that is, extraneous white-space
304 If non-nil, incrementally update display when flood-filling.
305 If set to non-nil, this currently implies discarding any input events
364 (defvar artist-pointer-shape (if (eq window-system 'x) x-pointer-crosshair nil)
433 (defvar artist-mode nil
434 "Non-nil to enable `artist-mode' and nil to disable.")
444 (defvar artist-line-char-set nil
448 (defvar artist-line-char nil
452 (defvar artist-fill-char-set nil
456 (defvar artist-fill-char nil
469 (defvar artist-copy-buffer nil
480 (defvar artist-borderless-shapes nil
481 "When non-nil, draw shapes without border.
485 (defvar artist-prev-next-op-alist nil
509 (defvar artist-key-is-drawing nil)
510 (defvar artist-key-endpoint1 nil)
511 (defvar artist-key-poly-point-list nil)
512 (defvar artist-key-shape nil)
513 (defvar artist-key-draw-how nil)
514 (defvar artist-popup-menu-table nil)
515 (defvar artist-key-compl-table nil)
516 (defvar artist-rb-save-data nil)
517 (defvar artist-arrow-point-1 nil)
518 (defvar artist-arrow-point-2 nil)
596 artist-no-arrows nil
597 nil nil nil
600 (nil))
603 artist-pen-reset-last-xy nil nil
606 (nil)))))
611 nil nil nil
615 artist-nil nil))
618 nil nil nil
622 artist-nil nil)))))
626 artist-no-arrows nil
627 nil nil nil
633 artist-no-arrows nil
634 nil nil nil
643 nil nil nil
647 artist-nil nil))
650 nil nil nil
654 artist-nil nil)))))
658 artist-no-arrows nil
659 nil nil nil
665 artist-no-arrows nil
666 nil nil nil
674 artist-no-arrows nil
675 nil nil nil
678 nil)
680 artist-no-arrows nil
681 nil nil nil
684 nil))))
688 artist-no-arrows nil
689 nil nil nil
694 artist-no-arrows nil
695 nil artist-spray-clear-circle artist-spray-set-radius
699 artist-nil nil)))))
703 artist-no-arrows nil
704 nil nil nil
707 (nil))
709 artist-no-arrows nil
710 nil nil nil
718 artist-no-arrows nil
719 nil nil nil
722 nil)
724 artist-no-arrows nil
725 nil nil nil
728 nil)))))))
734 artist-no-arrows nil
735 nil nil nil
741 artist-no-arrows nil
742 nil nil nil
750 artist-no-arrows nil
751 nil nil nil
757 artist-no-arrows nil
758 nil nil nil
766 artist-no-arrows nil
767 nil nil nil
770 nil)
772 artist-no-arrows nil
773 nil nil nil
776 nil))))
780 artist-no-arrows nil
781 nil nil nil
784 nil)
786 artist-no-arrows nil
787 nil nil nil
790 nil)))))))
875 must return nil or t.
878 INIT-FN is, if non-nil, a function that is called when the first
881 PREP-FILL-FN is, if non-nil, a function that is called after
884 EXIT-FN is, if non-nil, a function that is called after filling
900 INTERVAL-FN is, if non-nil, a function to call for getting
904 If nil, calls to DRAW-FN are done only when the mouse
916 return nil or t.
1102 (defun artist-get-last-non-nil-op (op-list &optional last-non-nil)
1103 "Find the last non-nil draw operation in OP-LIST.
1104 Optional LAST-NON-NIL will be returned if OP-LIST is nil."
1106 (artist-get-last-non-nil-op (cdr op-list)
1107 (or (car (car op-list)) last-non-nil))
1108 last-non-nil))
1110 (defun artist-get-first-non-nil-op (op-list)
1111 "Find the first non-nil draw operation in OP-LIST."
1112 (or (car (car op-list)) (artist-get-first-non-nil-op (cdr op-list))))
1122 last-non-nil-arg first-non-nil-arg
1127 (let* ((last-non-nil (or last-non-nil-arg
1128 (artist-get-last-non-nil-op
1130 (first-non-nil (or first-non-nil-arg
1131 (artist-get-first-non-nil-op
1133 (prev-op (or prev-op-arg last-non-nil))
1136 (entry (cons opsym (cons prev-op nil))))
1140 last-non-nil first-non-nil
1146 last-non-nil first-non-nil
1148 (progn (setcdr (cdr prev-entry) first-non-nil) nil)))))
1409 (setq artist-key-is-drawing nil)
1410 (setq artist-key-endpoint1 nil)
1411 (setq artist-key-poly-point-list nil)
1412 (setq artist-key-shape nil)
1418 (setq artist-arrow-point-1 nil)
1419 (setq artist-arrow-point-2 nil)
1469 (defun artist-nil ()
1470 "Always return nil."
1471 nil)
1479 nil)
1535 (remq nil
1551 nil))))
1595 nil))))
1597 nil))
1627 (t nil))))
1639 nil))
1695 If IS-SHIFTED is non-nil, return the shifted symbol,
1701 If IS-SHIFTED is non-nil, return the shifted symbol,
1724 nil))
1758 nil))
1769 ;; Macro that won't funcall the function if it is nil.
1772 "Call function FN with ARGS iff FN is not nil."
1777 (cond ((null l) nil)
1784 (let ((res nil)
1798 (write-region str 'end-is-ignored file-name nil 'no-message))
1806 (insert-file-contents file-name nil nil nil t)
1817 (delete-char (- (point-max) (point-min)) nil)))
1830 nil))
1837 (binary-process-input nil) ; for msdos
1838 (binary-process-output nil))
1854 nil
1863 nil))))
1983 (blink-matching-paren nil))
2005 (blink-matching-paren nil))
2011 With optional argument SEE-THRU, set to non-nil, text in the buffer
2013 (let ((char-list (append string nil)) ; convert the string to a list
2016 (blink-matching-paren nil))
2138 Return value is either nil for the default characters that make up lines, or
2146 nil)))
2385 (let* ((point-list nil)
2592 (endpoint2 nil))
2842 (t nil)))
2856 (result (artist-system cmd-interpreter ls-cmd nil))
2880 nil
2892 If SEE-THRU is non-nil, then blanks in TEXT does not replace text
2911 (artist-text-insert-common x y text nil))
3027 (done nil))
3103 nil
3116 (t nil)))))
3121 (cond ((null l) nil)
3216 (let ((ep-stack nil))
3245 (point-list nil))
3327 nil)
3338 (let ((first-half nil)
3339 (both-halves nil)
3340 (last-y nil))
3376 (let ((right-half nil)
3377 (left-half nil))
3475 (let ((point-list nil)
3480 (point-list nil)
3481 (fill-info nil)
3641 (l nil))
3723 (let ((stack nil)
3724 (input-queue nil)
3751 (lines-above nil)
3752 (lines-below nil)
3808 Optional argument STATE can be used to set state (default is nil)."
3843 (setq artist-arrow-point-1 nil)
3844 (setq artist-arrow-point-2 nil))
3891 nil)
3903 nil)
4057 nil)
4133 If optional argument THIS-IS-LAST-POINT is non-nil, this point is the last."
4162 ;; Since we are not ready, set the arrow-points to nil
4176 ;; (last point if the argument this-is-last-point is non-nil)
4246 (setq artist-key-shape nil)
4247 (setq artist-key-endpoint1 nil)
4248 (setq artist-key-is-drawing nil)))))))
4267 (setq artist-key-shape nil)
4268 (setq artist-key-is-drawing nil))
4336 (setq artist-key-is-drawing nil)))))
4341 With non-nil ARG, set the last point."
4440 (cond ((eq c ?\r) (setq artist-fill-char-set nil)
4450 (cond ((eq c ?\r) (setq artist-line-char-set nil)
4479 (append str nil))
4492 (ok nil)
4524 nil)))
4753 (set-mouse-color nil))
4778 (orig-pointer-shape (if (eq window-system 'x) x-pointer-shape nil))
4861 (let* ((unshifted (artist-go-get-symbol-shift (car op) nil))
4892 ;; form. Calling (event-modifiers ev) yields nil :-( Neither is the
4898 ;; (t nil))
4899 nil)
4916 (let* ((unshifted (artist-go-get-symbol-shift artist-curr-go nil))
4954 nil
5006 (let* ((unshifted (artist-go-get-symbol-shift artist-curr-go nil))
5028 (shape nil)
5029 (point-list nil)
5030 (done nil))
5061 (setq shape nil)
5062 (setq is-down nil))
5069 nil)
5098 (artist-go-get-symbol-shift artist-curr-go nil)
5165 nil)
5171 nil)
5179 nil)
5214 (let* ((unshifted (artist-go-get-symbol-shift artist-curr-go nil))
5244 (let* ((unshifted (artist-go-get-symbol-shift artist-curr-go nil))
5280 nil
5374 nil nil
5454 ;; borders if the `artist-borderless-shapes' is non-nil.
5483 ;; borders if the `artist-borderless-shapes' is non-nil.
5499 ;; you must set the variables to nil. Use the accessors
5524 ;; borders if the `artist-borderless-shapes' is non-nil.