/[emacs]/emacs/lisp/shadowfile.el
ViewVC logotype

Diff of /emacs/lisp/shadowfile.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by kfstorm, Sun Mar 17 20:32:20 2002 UTC revision 1.19 by lektu, Tue Feb 4 12:04:13 2003 UTC
# Line 406  expansion or contraction, you must do th Line 406  expansion or contraction, you must do th
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  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
# Line 497  Each site can be either a hostname or th Line 497  Each site can be either a hostname or th
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."

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26