[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master c005b08: * lisp/gnus/mm-extern.el: Use lexical-bind
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master c005b08: * lisp/gnus/mm-extern.el: Use lexical-binding |
Date: |
Tue, 27 Feb 2018 20:39:12 -0500 (EST) |
branch: master
commit c005b089d1997218cba5540d37be0a5dfc2c4e1c
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/gnus/mm-extern.el: Use lexical-binding
Don't require 'cl'.
(mm-extern-anon-ftp): Remove unused var 'mode'.
---
lisp/gnus/mm-extern.el | 19 ++++++++-----------
1 file changed, 8 insertions(+), 11 deletions(-)
diff --git a/lisp/gnus/mm-extern.el b/lisp/gnus/mm-extern.el
index e2f8bd4..fbae669 100644
--- a/lisp/gnus/mm-extern.el
+++ b/lisp/gnus/mm-extern.el
@@ -1,4 +1,4 @@
-;;; mm-extern.el --- showing message/external-body
+;;; mm-extern.el --- showing message/external-body -*- lexical-binding:t -*-
;; Copyright (C) 2000-2018 Free Software Foundation, Inc.
@@ -24,8 +24,6 @@
;;; Code:
-(eval-when-compile (require 'cl))
-
(require 'mm-util)
(require 'mm-decode)
(require 'mm-url)
@@ -33,13 +31,13 @@
(defvar gnus-article-mime-handles)
(defvar mm-extern-function-alist
- '((local-file . mm-extern-local-file)
- (url . mm-extern-url)
- (anon-ftp . mm-extern-anon-ftp)
- (ftp . mm-extern-ftp)
-;;; (tftp . mm-extern-tftp)
- (mail-server . mm-extern-mail-server)
-;;; (afs . mm-extern-afs))
+ `((local-file . ,#'mm-extern-local-file)
+ (url . ,#'mm-extern-url)
+ (anon-ftp . ,#'mm-extern-anon-ftp)
+ (ftp . ,#'mm-extern-ftp)
+ ;; (tftp . ,#'mm-extern-tftp)
+ (mail-server . ,#'mm-extern-mail-server)
+ ;; (afs . ,#'mm-extern-afs))
))
(defvar mm-extern-anonymous "anonymous")
@@ -72,7 +70,6 @@
(name (cdr (assq 'name params)))
(site (cdr (assq 'site params)))
(directory (cdr (assq 'directory params)))
- (mode (cdr (assq 'mode params)))
(path (concat "/" (or mm-extern-anonymous
(read-string (format "ID for %s: " site)))
"@" site ":" directory "/" name))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master c005b08: * lisp/gnus/mm-extern.el: Use lexical-binding,
Stefan Monnier <=