406 |
(if regexp |
(if regexp |
407 |
(string-match (nth 2 pattern-sup) (nth 2 file-sup)) |
(string-match (nth 2 pattern-sup) (nth 2 file-sup)) |
408 |
(string-equal (nth 2 pattern-sup) (nth 2 file-sup)))))) |
(string-equal (nth 2 pattern-sup) (nth 2 file-sup)))))) |
409 |
|
|
410 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
411 |
;;; User-level Commands |
;;; User-level Commands |
412 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
497 |
(cons (shadow-make-group regexp sites usernames) |
(cons (shadow-make-group regexp sites usernames) |
498 |
shadow-regexp-groups)) |
shadow-regexp-groups)) |
499 |
(shadow-write-info-file))) |
(shadow-write-info-file))) |
500 |
|
|
501 |
(defun shadow-shadows () |
(defun shadow-shadows () |
502 |
;; Mostly for debugging. |
;; Mostly for debugging. |
503 |
"Interactive function to display shadows of a buffer." |
"Interactive function to display shadows of a buffer." |