diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2018-10-14 15:53:36 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2018-10-14 15:58:51 +0200 |
| commit | 19853445e669052da5ae27ef784fdac4ce0eefbe (patch) | |
| tree | 80ea08df6cf5c6c3364ae3d34a01c78f2c91cd11 /debian-el.el | |
| parent | a65d846331ff0d81e7cf71938268ab787eb37432 (diff) | |
fix indentation and remove excessive whitespace
Diffstat (limited to 'debian-el.el')
| -rw-r--r-- | debian-el.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/debian-el.el b/debian-el.el index a70f02d..11b0f38 100644 --- a/debian-el.el +++ b/debian-el.el @@ -28,9 +28,9 @@ :prefix "apt-sources-" :link '(custom-manual "(debian-el)apt-sources") :load 'apt-sources -;;:require 'apt-sources + ;;:require 'apt-sources :group 'debian-el) - + ;; apt-utils (defgroup apt-utils nil "Emacs interface to APT (Debian package management)" @@ -38,7 +38,7 @@ :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 + ;;:require 'apt-utils :group 'debian-el) ;; debian-bug.el @@ -47,7 +47,7 @@ :prefix "debian-bug-" :link '(custom-manual "(debian-el)debian-bug") :load 'debian-bug -;;:require 'debian-bug + ;;:require 'debian-bug :group 'debian-el) ;; deb-view.el @@ -69,7 +69,7 @@ ;; 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. + "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'. @@ -86,14 +86,14 @@ 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)) + (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))) |