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 |
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 |