Package: dpkg-dev-el
Version: 26.5-2
Severity: normal
Tags: patch
The namespace should start with ^debian-* to be in par with the
other Emacs commands for Debian. The patch corrects this.
2006-03-02 Jari Aalto <jari aalto A T cante net>
* readme-debian.el (Whole file):
^readme-debian-* to ^debian-readme-*. This way the user
looking for deian commands with M-x debian-[TAB] will
find better matches.
--- readme-debian.el 2006-03-02 14:45:10+02 1.2
+++ readme-debian.el 2006-03-02 14:50:55+02 1.3
@@ -1,4 +1,4 @@
-;;; readme-debian.el --- a simple mode for README.Debian files
+;;; debian-readme.el --- a simple mode for README.Debian files
;; Copyright 2002, 2003 Junichi Uekawa.
;;
@@ -7,7 +7,7 @@
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
-;; readme-debian.el is distributed in the hope that it will be useful,
+;; debian-readme.el 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.
@@ -19,21 +19,21 @@
;;; Code:
(require 'debian-changelog-mode)
-(defgroup readme-debian nil "Readme Debian (mode)"
+(defgroup debian-readme nil "Readme Debian (mode)"
:group 'tools
- :prefix "readme-debian-")
+ :prefix "debian-readme-")
-(defcustom readme-debian-mode-load-hook nil "*Hooks that are run when
`readme-debian-mode' is loaded."
+(defcustom debian-readme-mode-load-hook nil "*Hooks that are run when
`debian-readme-mode' is loaded."
:type 'hook
- :group 'readme-debian)
-(defcustom readme-debian-mode-hook nil "*Hooks that are run when
`readme-debian-mode' is entered."
+ :group 'debian-readme)
+(defcustom debian-readme-mode-hook nil "*Hooks that are run when
`debian-readme-mode' is entered."
:type 'hook
- :group 'readme-debian)
+ :group 'debian-readme)
-(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))
+(add-to-list 'auto-mode-alist '("debian/README.Debian$" . debian-readme-mode))
+(add-to-list 'auto-mode-alist '("^/usr/share/doc/.*/README.Debian.*$" .
debian-readme-mode))
-(defvar readme-debian-font-lock-keywords
+(defvar debian-readme-font-lock-keywords
'(("^\\(.*\\) for \\(Debian\\)$"
(1 font-lock-keyword-face)
(2 font-lock-string-face))
@@ -44,7 +44,7 @@
(3 font-lock-string-face)))
"Regexp keywords used to fontify README.Debian buffers.")
-(defun readme-debian-update-timestamp ()
+(defun debian-readme-update-timestamp ()
"Function to update timestamp in README.Debian files, automatically invoked
when saving file."
(save-excursion
(goto-line 1)
@@ -62,35 +62,35 @@
(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
+(defvar debian-readme-mode-map nil "Keymap for README.Debian mode.")
+(if debian-readme-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
+ (setq debian-readme-mode-map (make-sparse-keymap)))
+(defvar debian-readme-mode-syntax-table nil "Syntax table for README.Debian
mode.")
+(if debian-readme-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))
+ (setq debian-readme-mode-syntax-table (make-syntax-table))
+ (modify-syntax-entry ?\" ". " debian-readme-mode-syntax-table)
+ (modify-syntax-entry ?\\ ". " debian-readme-mode-syntax-table)
+ (modify-syntax-entry ?' "w " debian-readme-mode-syntax-table))
(defvar font-lock-defaults) ;For XEmacs byte-compilation
;;;###autoload
-(defun readme-debian-mode ()
+(defun debian-readme-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}"
+\\{debian-readme-mode-map}"
(interactive)
(kill-all-local-variables)
- (setq major-mode 'readme-debian-mode)
+ (setq major-mode 'debian-readme-mode)
(setq mode-name "README.Debian")
(make-local-variable 'font-lock-defaults)
- (use-local-map readme-debian-mode-map)
- (set-syntax-table readme-debian-mode-syntax-table)
+ (use-local-map debian-readme-mode-map)
+ (set-syntax-table debian-readme-mode-syntax-table)
(setq font-lock-defaults
- '(readme-debian-font-lock-keywords
+ '(debian-readme-font-lock-keywords
nil ;; keywords-only? No, let it do syntax via table.
nil ;; case-fold?
nil ;; Local syntax table.
@@ -99,19 +99,19 @@
(if (or (= emacs-major-version 20)
(string-match "XEmacs" emacs-version))
(make-local-hook 'write-contents-hooks))
- (add-hook 'write-contents-hooks 'readme-debian-update-timestamp
+ (add-hook 'write-contents-hooks 'debian-readme-update-timestamp
nil t)
- (run-hooks 'readme-debian-mode-hook))
+ (run-hooks 'debian-readme-mode-hook))
(add-to-list 'auto-mode-alist
- '("debian/.*README.*Debian$" . readme-debian-mode))
+ '("debian/.*README.*Debian$" . debian-readme-mode))
(add-to-list 'auto-mode-alist
- '("^/usr/share/doc/.*/README.*Debian.*$" . readme-debian-mode))
-;;;###autoload(add-to-list 'auto-mode-alist '("debian/.*README.*Debian$" .
readme-debian-mode))
-;;;###autoload(add-to-list 'auto-mode-alist
'("^/usr/share/doc/.*/README.*Debian.*$" . readme-debian-mode))
+ '("^/usr/share/doc/.*/README.*Debian.*$" . debian-readme-mode))
+;;;###autoload(add-to-list 'auto-mode-alist '("debian/.*README.*Debian$" .
debian-readme-mode))
+;;;###autoload(add-to-list 'auto-mode-alist
'("^/usr/share/doc/.*/README.*Debian.*$" . debian-readme-mode))
-(run-hooks 'readme-debian-mode-load-hook)
+(run-hooks 'debian-readme-mode-load-hook)
-(provide 'readme-debian)
+(provide 'debian-readme)
-;;; readme-debian.el ends here
+;;; debian-readme.el ends here
-- System Information:
Debian Release: testing/unstable
APT prefers unstable
APT policy: (500, 'unstable'), (500, 'stable')
Architecture: i386 (i686)
Shell: /bin/sh linked to /bin/dash
Kernel: Linux 2.6.15-1-686
Locale: LANG=C, LC_CTYPE=C (charmap=ISO-8859-1) (ignored: LC_ALL set to en_US)
Versions of packages dpkg-dev-el depends on:
ii debian-el 26.5-2 Emacs helpers specific to Debian u
ii emacs21 [emacsen] 21.4a-3 The GNU Emacs editor
ii xemacs21-mule [emacsen] 21.4.19-1 highly customizable text editor --
Versions of packages dpkg-dev-el recommends:
ii wget 1.10.2-1 retrieves files from the web
-- no debconf information
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
