I don't like nxhtml

1 files changed, 0 insertions, 127 deletions

diff --git a/emacs.d/nxhtml/util/fupd.el b/emacs.d/nxhtml/util/fupd.el
deleted file mode 100644
index bb8b3af..0000000
--- a/emacs.d/nxhtml/util/fupd.el
+++ /dev/null
@@ -1,127 +0,0 @@
-;;; fupd.el --- Helper functions for updating files
-;;
-;; Author: Lennart Borgman (lennart O borgman A gmail O com)
-;; Created: Tue Feb 28 17:21:20 2006
-;; Version: 0.1
-;; Last-Updated: Tue Feb 20 21:09:20 2007 (3600 +0100)
-;; Keywords:
-;; Compatibility:
-;;
-;; Features that might be required by this library:
-;;
-;;   None
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-;;
-;; Helper functions for updating files.
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Change log:
-;;
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Code:
-
-(defun fupd-has-contents (file content)
-  "Check if file FILE contains CONTENT.
-Return a vector with these elements:
-- elt 0: t if file contains CONTENT and buffer is not modified.
-- elt 1: t if file contains CONTENT.
-- elt 2: file buffer if file exists.
-- elt 3: nil unless file already was in a buffer."
-  (let (ok same buffer old-buffer)
-    (when (file-exists-p file)
-      (setq buffer (get-file-buffer file))
-      (setq old-buffer (when buffer t))
-      (unless buffer
-        (setq buffer (find-file-noselect file)))
-      (with-current-buffer buffer
-        (setq same (string=
-                    content
-                    (buffer-substring-no-properties
-                     (point-min) (point-max)))))
-      (setq ok (and same
-                    (not (buffer-modified-p buffer)))))
-    (vector ok same buffer old-buffer)))
-
-(defun fupd-ok (ret-val)
-  "Return t if RET-VAL indicate file is uptodate.
-RET-VAL should be the return value from `fupd-has-contents'."
-  (elt ret-val 0))
-
-(defun fupd-kill-new-buffer (ret-val)
-  "Kill new buffer indicated by RET-VAL.
-RET-VAL should be the return value from `fupd-has-contents'."
-  (unless (elt ret-val 3)
-    (let ((buffer (elt ret-val 2)))
-      (when (bufferp buffer)
-        ;;(message "fupd-kill-new-buffer: %s" (buffer-file-name buffer))(sit-for 4)
-        (kill-buffer buffer)))))
-
-;;(fupd-has-contents buffer-file-name (buffer-string))
-;;(fupd-update-file buffer-file-name (buffer-string))
-(defun fupd-update-file (file content)
-  "Update file FILE with content CONTENT.
-Do nothing if the file already has that content.  If the file was
-not in a buffer before kill the file's buffer afterwards.
-
-Return t if the file was updated, otherwise nil."
-  (let* ((osbo (fupd-has-contents file content))
-         (ok   (elt osbo 0))
-         (same (elt osbo 1))
-         (buff (elt osbo 2))
-         (oldb (elt osbo 3))
-         wrote
-         )
-    (unless ok
-      (if buff
-          (with-current-buffer buff
-            (unless same
-              (erase-buffer)
-              (insert content))
-            (save-buffer)
-            (setq wrote t)
-            (unless oldb
-              (kill-buffer (current-buffer))))
-        (with-temp-buffer
-          (insert content)
-          (write-file file))))
-    wrote))
-
-;; (defun fupd-copy-file (from-file to-file)
-;;   (let (
-;;         (from-buff (find-buffer-visiting from-file))
-;;         (to-buff (find-buffer-visiting to-file))
-;;         (from-attr (file-attributes from-file))
-;;         (to-attr (file-attributes to-file))
-;;         (from-size (nth 7 from-attr))
-;;         (to-size (nth 7 to-attr))
-;;         (from-mod (nth 5 from-attr))
-;;         (to-mode (nth 5 to-attr))
-;;         )
-;;   ))
-
-(provide 'fupd)
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; fupd.el ends here