From 99c4803b1b96f219fa742144172f0fd9a8f12b7e Mon Sep 17 00:00:00 2001
From: psg <>
Date: Fri, 23 May 2003 01:29:54 +0000
Subject: * Updated readme-debian.el from devscripts-el-0.0.20030521.tar.gz,  
 patched it for font-lock on unstable's xemacs21, and to avoid the   error on
 the case of no timestamp. Also try to get newlines   surrounding the
 timestamp correctly.  Sent the file upstream to become   the new upstream
 version. * Deleted 6_readme-debian.dpatch

---
 readme-debian.el | 59 +++++++++++++++++++++++++++++++++++---------------------
 1 file changed, 37 insertions(+), 22 deletions(-)

(limited to 'readme-debian.el')

diff --git a/readme-debian.el b/readme-debian.el
index db2ec7e..94b3c47 100644
--- a/readme-debian.el
+++ b/readme-debian.el
@@ -33,30 +33,52 @@
 (add-to-list 'auto-mode-alist '("debian/README.Debian$" . readme-debian-mode))
 (add-to-list 'auto-mode-alist '("^/usr/share/doc/.*/README.Debian.*$" . readme-debian-mode))
 
+(defvar readme-debian-font-lock-keywords
+  '(("^\\(.*\\) for \\(Debian\\)$"
+     (1 font-lock-keyword-face)
+     (2 font-lock-string-face))
+    ("^[-=]+$" 0 font-lock-string-face)
+    ("^ -- \\([^<]*\\)\\(<[^>]*>\\)\\(, \\(.*\\)\\)?$"
+     (1 font-lock-keyword-face)
+     (2 font-lock-function-name-face)
+     (3 font-lock-string-face)))
+  "Regexp keywords used to fontify README.Debian buffers.")
+
 (defun readme-debian-update-timestamp ()
   "Function to update timestamp in README.Debian files, automatically invoked when saving file."
   (save-excursion
     (goto-line 1)
-    (re-search-forward "^ -- ")
-    (delete-region (progn (beginning-of-line) (point)) (progn (end-of-line) (point)))
+    (if (re-search-forward "^ -- " nil t)
+        (delete-region (progn (beginning-of-line) (point)) (progn (end-of-line) (point)))
+      (goto-char (point-max))
+      (if (bolp)
+	  (insert "\n")
+	(insert "\n\n")))
     (insert (concat
 	     " -- "
 	     debian-changelog-full-name
 	     " <" debian-changelog-mailing-address ">, "
-	     (current-time-string)))))
+	     (current-time-string)))
+    (if (and (= (point)(point-max)) (not (bolp)))
+	(insert "\n"))))
 
 (defvar readme-debian-mode-map nil "Keymap for README.Debian mode.")
+(if readme-debian-mode-map
+    ()
+  (setq readme-debian-mode-map (make-sparse-keymap)))
 (defvar readme-debian-mode-syntax-table nil "Syntax table for README.Debian mode.")
 (if readme-debian-mode-syntax-table
-         ()              ; Do not change the table if it is already set up.
-       (setq readme-debian-mode-syntax-table (make-syntax-table))
-       (modify-syntax-entry ?\" ".   " readme-debian-mode-syntax-table)
-       (modify-syntax-entry ?\\ ".   " readme-debian-mode-syntax-table)
-       (modify-syntax-entry ?' "w   " readme-debian-mode-syntax-table))
+    ()                   ; Do not change the table if it is already set up.
+  (setq readme-debian-mode-syntax-table (make-syntax-table))
+  (modify-syntax-entry ?\" ".   " readme-debian-mode-syntax-table)
+  (modify-syntax-entry ?\\ ".   " readme-debian-mode-syntax-table)
+  (modify-syntax-entry ?' "w   " readme-debian-mode-syntax-table))
 
 (defvar font-lock-defaults)             ;For XEmacs byte-compilation
 (defun readme-debian-mode ()
   "Mode for reading and editing README.Debian files.
+Upon saving the visited README.Debian file, the timestamp at the bottom
+will be updated.
 
 \\{readme-debian-mode-map}"
   (interactive)
@@ -67,20 +89,13 @@
   (use-local-map readme-debian-mode-map)
   (set-syntax-table readme-debian-mode-syntax-table)
   (setq font-lock-defaults
-	'(
-					;keywords start here
-	  (("^\\(.*\\) for \\(Debian\\)$" (1 font-lock-keyword-face) (2 font-lock-string-face))
-	   ("^[-=]+$" 0 font-lock-string-face)
-	   ("^ -- \\([^<]*\\)\\(<[^>]*>\\)\\(, \\(.*\\)\\)?$"
-	    (1 font-lock-keyword-face)
-	    (2 font-lock-function-name-face)
-	    (3 font-lock-string-face))
-	   )
-	  nil		;keywords-only
-	  nil		;case-fold
-	  ()		;syntax-alist
-	  ))
-  (add-to-list 'write-file-hooks 'readme-debian-update-timestamp) ; add timestamp update func to write-file-hook
+   '(readme-debian-font-lock-keywords
+     nil ;; keywords-only? No, let it do syntax via table.
+     nil ;; case-fold?
+     nil ;; Local syntax table.
+     ))
+  ;; add timestamp update func to write-file-hook
+  (add-to-list 'write-file-hooks 'readme-debian-update-timestamp)
   (run-hooks 'readme-debian-mode-hook))
 
 (run-hooks 'readme-debian-mode-load-hook)
-- 
cgit v1.2.3