/[erbot]/erbot/erbwiki.el
ViewVC logotype

Diff of /erbot/erbwiki.el

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

revision 1.21 by deego, Fri Sep 2 19:24:59 2005 UTC revision 1.22 by deego, Sun Oct 2 20:04:34 2005 UTC
# Line 1  Line 1 
1  ;;; erbwiki.el --- SECURITY RISK, READ BELOW.  ;;; erbwiki.el --- SECURITY RISK, READ BELOW.
2  ;; Time-stamp: <2005-09-02 14:18:11 deego>  ;; Time-stamp: <2005-10-02 16:07:15 deego>
3  ;; Copyright (C) 2002, 2003 D. Goel  ;; Copyright (C) 2002, 2003 D. Goel
4  ;; Emacs Lisp Archive entry  ;; Emacs Lisp Archive entry
5  ;; Filename: erbwiki.el  ;; Filename: erbwiki.el
# Line 483  connected." Line 483  connected."
483       (ignore-errors       (ignore-errors
484         (find-file lastfile)         (find-file lastfile)
485         (goto-char (point-min))         (goto-char (point-min))
486         (setq oldfields (ignore-errors (erbn-read (get-file-buffer lastfile)))))         (setq oldfields (ignore-errors (read (get-file-buffer lastfile)))))
487       (find-file newfile)       (find-file newfile)
488       (goto-char (point-min))       (goto-char (point-min))
489       (setq currentfields (ignore-errors       (setq currentfields (ignore-errors
490                             (erbn-read (get-file-buffer newfile))))                             (read (get-file-buffer newfile))))
491       (setq newfields       (setq newfields
492             (set-difference currentfields oldfields             (set-difference currentfields oldfields
493                             :test 'equal                             :test 'equal

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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