/usr/share/emacs/site-lisp/debian-el/debian-el.el is in debian-el 36.3+nmu1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 | ;;; debian-el.el --- startup file for the debian-el package
;;; Commentary:
;;
;; This file is loaded from /etc/emacs/site-start.d/50debian-el.el
;;; History:
;;
;; 2008-04-12 - Géraud Meyer
;; - Use apt-sources-mode for files in /etc/apt/sources.list.d/ too.
;; - Use \' instead of $ for the end of filenames.
;; 2003-09-01 - Peter Galbraith
;; - Created.
;;; Code:
(defgroup debian-el nil
"Debian debian-el package customization."
:group 'convenience)
(require 'debian-el-loaddefs)
;;(require 'debian-el-custom)
;; apt-sources
(add-to-list 'auto-mode-alist '("sources\\.list\\'" . apt-sources-mode))
(add-to-list 'auto-mode-alist '("sources\\.list\\.d/.*\\.list\\'" . apt-sources-mode))
(defgroup apt-sources nil "Mode for editing apt sources.list files"
:group 'tools
:prefix "apt-sources-"
:link '(custom-manual "(debian-el)apt-sources")
:load 'apt-sources
;;:require 'apt-sources
:group 'debian-el)
;; apt-utils
(defgroup apt-utils nil
"Emacs interface to APT (Debian package management)"
:group 'tools
:link '(url-link "http://www.tc.bham.ac.uk/~matt/AptUtilsEl.html")
:link '(custom-manual "(debian-el)apt-utils")
:load 'apt-utils
;;:require 'apt-utils
:group 'debian-el)
;; debian-bug.el
(defgroup debian-bug nil "Debian Bug report helper"
:group 'tools
:prefix "debian-bug-"
:link '(custom-manual "(debian-el)debian-bug")
:load 'debian-bug
;;:require 'debian-bug
:group 'debian-el)
;; deb-view.el
(setq auto-mode-alist
(append '(("\\.u?deb\\'" . deb-view-mode)) auto-mode-alist))
(defgroup deb-view nil
"View Debian package files with tar-mode"
:group 'tools
:prefix "deb-view"
:link '(custom-manual "(debian-el)deb-view")
:load 'deb-view
:group 'debian-el)
(add-hook
'dired-load-hook
(function (lambda ()
(define-key dired-mode-map "\C-d" 'deb-view-dired-view))))
(when (member 'utf-8 (coding-system-list))
;; The following from Kevin Ryde <user42@zip.com.au>
;; Closes: #484027
(defun deb-view-control-coding (arg-list)
"Return coding system for the \"control\" file in a deb.
This function is for use from `file-coding-system-alist'.
ARG-LIST is arguments passed to `find-operation-coding-system'.
The only operation handled here is `insert-file-contents' with a
buffer filename \".deb-INFO!./control\", for which the return is
'utf-8, and for anything else the return is nil (letting
`find-operation-coding-system' try other things).
This is done as a function because the filename passed to
find-operation-coding-system by tar-mode is merely the archive
member \"./control\". By looking at the buffer-file-name we can
tell if it's from a deb.
Note: This only works in emacs22, in emacs21 or xemacs21 tar-mode
does something a bit different and doesn't reach here (and
there's no buffer passed to coding system functions)."
(if (and (eq (car arg-list) 'insert-file-contents) ;; first arg
(consp (cadr arg-list)) ;; second arg like ("./control" . BUFFER)
(let ((buffer (cdr (cadr arg-list))))
(and (buffer-file-name buffer)
(string-match "\\.deb-INFO!\\./control\\'"
(buffer-file-name buffer))
'utf-8)))
'undecided))
(add-to-list 'file-coding-system-alist
'("\\'control\\'" . deb-view-control-coding)))
(provide 'debian-el)
;;; debian-el.el ends here
|