From aa67c9a9038bd53ca8e1ec24ed376f4bb816993f Mon Sep 17 00:00:00 2001 From: Tom Yu Date: Wed, 4 Nov 2009 04:28:24 +0000 Subject: [PATCH] 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 --- src/util/krb5-mark-cstyle.el | 28 ---------------------------- 1 file changed, 28 deletions(-) delete mode 100644 src/util/krb5-mark-cstyle.el 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)))) -- 2.26.2