[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r102181: Silence gnus.el compilation.
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r102181: Silence gnus.el compilation. |
Date: |
Sun, 31 Oct 2010 18:40:12 -0700 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 102181
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2010-10-31 18:40:12 -0700
message:
Silence gnus.el compilation.
* gnus.el (gnus-sloppily-equal-method-parameters): Move definition before use.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-11-01 01:38:04 +0000
+++ b/lisp/gnus/ChangeLog 2010-11-01 01:40:12 +0000
@@ -1,5 +1,7 @@
2010-11-01 Glenn Morris <address@hidden>
+ * gnus.el (gnus-sloppily-equal-method-parameters): Move defn before use.
+
* sieve-manage.el: Require 'cl when compiling.
* gnus-util.el (iswitchb-read-buffer): Declare rather than autoload.
=== modified file 'lisp/gnus/gnus.el'
--- a/lisp/gnus/gnus.el 2010-10-31 22:31:24 +0000
+++ b/lisp/gnus/gnus.el 2010-11-01 01:40:12 +0000
@@ -1,8 +1,8 @@
;;; gnus.el --- a newsreader for GNU Emacs
-;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998,
-;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
-;; Free Software Foundation, Inc.
+;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997,
+;; 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
+;; 2010 Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <address@hidden>
;; Lars Magne Ingebrigtsen <address@hidden>
@@ -3546,16 +3546,6 @@
gnus-valid-select-methods)))
(equal (nth 1 m1) (nth 1 m2)))))))
-(defun gnus-methods-sloppily-equal (m1 m2)
- ;; Same method.
- (or
- (eq m1 m2)
- ;; Type and name are equal.
- (and
- (eq (car m1) (car m2))
- (equal (cadr m1) (cadr m2))
- (gnus-sloppily-equal-method-parameters m1 m2))))
-
(defsubst gnus-sloppily-equal-method-parameters (m1 m2)
;; Check parameters for sloppy equalness.
(let ((p1 (copy-sequence (cddr m1)))
@@ -3584,6 +3574,16 @@
;; If p2 now is empty, they were equal.
(null p2))))
+(defun gnus-methods-sloppily-equal (m1 m2)
+ ;; Same method.
+ (or
+ (eq m1 m2)
+ ;; Type and name are equal.
+ (and
+ (eq (car m1) (car m2))
+ (equal (cadr m1) (cadr m2))
+ (gnus-sloppily-equal-method-parameters m1 m2))))
+
(defun gnus-server-equal (m1 m2)
"Say whether two methods are equal."
(let ((m1 (cond ((null m1) gnus-select-method)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r102181: Silence gnus.el compilation.,
Glenn Morris <=