Lines Matching defs:exclude
73 ;; `align-mode-rules-list' and `align-mode-exclude-rules-list'
106 ;; `align-exclude-rules-list'. At the moment there is no convenient
719 (defvar align-exclude-rules-list-type
746 "The `type' form for any `align-exclude-rules-list' variable.")
748 (defcustom align-exclude-rules-list
786 :type align-exclude-rules-list-type
789 (put 'align-exclude-rules-list 'risky-local-variable t)
799 (defvar align-mode-exclude-rules-list nil
801 See the variable `align-exclude-rules-list' for more details.")
803 (make-variable-buffer-local 'align-mode-exclude-rules-list)
860 (defun align (beg end &optional separate rules exclude-rules)
874 `align-exclude-rules-list'. See `align-rules-list' for more details
889 (or exclude-rules align-mode-exclude-rules-list
890 align-exclude-rules-list))
894 (or exclude-rules
895 align-mode-exclude-rules-list
896 align-exclude-rules-list) nil
906 (or exclude-rules align-mode-exclude-rules-list
907 align-exclude-rules-list)))))))
962 (defun align-entire (beg end &optional rules exclude-rules)
969 (align beg end 'entire rules exclude-rules))
972 (defun align-current (&optional rules exclude-rules)
980 (align nil nil nil rules exclude-rules))
983 (defun align-highlight-rule (beg end title &optional rules exclude-rules)
999 (or align-mode-exclude-rules-list
1000 align-exclude-rules-list))) nil t)))
1002 (or align-mode-exclude-rules-list
1003 align-exclude-rules-list)))
1009 (or exclude-rules align-mode-exclude-rules-list
1010 align-exclude-rules-list)
1012 (unless ex-rule (or exclude-rules align-mode-exclude-rules-list
1013 align-exclude-rules-list))
1250 (defun align-region (beg end separate rules exclude-rules
1321 exclude-p
1383 (let (exclude-areas)
1386 (when exclude-rules
1391 ;; `exclude-areas'
1392 (set (setq exclude-areas
1393 (make-symbol "align-exclude-areas"))
1397 exclude-rules nil
1400 (set (quote ,exclude-areas)
1402 ,exclude-areas)))))
1403 (setq exclude-areas
1404 (sort (symbol-value exclude-areas)
1517 (let ((excls exclude-areas))
1518 (setq exclude-p nil)
1524 (setq exclude-p t
1533 (unless exclude-p