From: Tom Yu <tlyu@mit.edu>
Date: Wed, 4 Nov 2009 04:28:24 +0000 (+0000)
Subject: Delete obsolete krb5-mark-cstyle.el.  (replaced by a python script)
X-Git-Tag: krb5-1.8-alpha1~214
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=aa67c9a9038bd53ca8e1ec24ed376f4bb816993f;p=krb5.git

Delete obsolete krb5-mark-cstyle.el.  (replaced by a python script)

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@23127 dc483132-0cff-0310-8789-dd5450dbe970
---

diff --git a/src/util/krb5-mark-cstyle.el b/src/util/krb5-mark-cstyle.el
deleted file mode 100644
index 444b18981..000000000
--- a/src/util/krb5-mark-cstyle.el
+++ /dev/null
@@ -1,28 +0,0 @@
-;;; -*- mode: emacs-lisp; indent-tabs-mode: nil -*-
-(if (not noninteractive)
-    (error "to be used only with -batch"))
-
-(defvar bsd-style nil)
-(defvar krb5-style nil)
-
-(push '("-cstyle-bsd" . (lambda (ignored) (setq bsd-style t))) command-switch-alist)
-(push '("-cstyle-krb5" . (lambda (ignored) (setq krb5-style t))) command-switch-alist)
-
-;; Avoid vc-mode interference.
-(setq vc-handled-backends nil)
-(while command-line-args-left
-  (let ((filename (car command-line-args-left))
-        (error nil)
-        ;; No backup files?
-        (make-backup-files nil))
-    (find-file filename)
-
-    (goto-char (point-min))
-    (if (looking-at "\\s-*/\\*\\s-*-\\*-.*-\\*-\\s-*\\*/\\s-*\n")
-     (delete-region (match-beginning 0) (match-end 0)))
-    (if bsd-style
-        (insert "/* -*- mode: c; c-file-style: \"bsd\"; indent-tabs-mode: t -*- */\n")
-      (insert "/* -*- mode: c; c-basic-offset: 4; indent-tabs-mode: nil -*- */\n"))
-    (save-buffer)
-    (kill-buffer)
-    (setq command-line-args-left (cdr command-line-args-left))))