← Back to branch summary

~ubuntu-branches/debian/sid/emacs24/sid

« back to all changes in this revision

Viewing changes to lisp/erc/erc-track.el

  • Committer: Package Import Robot
  • Author(s): Rob Browning
  • Date: 2015-06-17 00:06:26 UTC
  • mfrom: (1.1.4)
  • Revision ID: package-import@ubuntu.com-20150617000626-uxmby0fbe538wwry
Tags: 24.5+1-1
* Merge upstream version 24.5 (shift from the bzr->git mirror to the
  new official upstream git repository for the source).
  Remove redundant patches:
    0008-A-race-to-create-info-has-been-eliminated.patch
    0009-Nil-load-path-elements-shouldn-t-crash-Emacs.patch

* Update debian/copyright* for 24.5.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/erc/erc-track.el
1
1
;;; erc-track.el --- Track modified channel buffers  -*- lexical-binding:t -*-
2
2
 
3
 
;; Copyright (C) 2002-2014 Free Software Foundation, Inc.
 
3
;; Copyright (C) 2002-2015 Free Software Foundation, Inc.
4
4
 
5
5
;; Author: Mario Lang <mlang@delysid.org>
6
6
;; Maintainer: emacs-devel@gnu.org
265
265
           (erc-track-add-to-mode-line val))))
266
266
 
267
267
(defun erc-modified-channels-object (strings)
268
 
  "Generate a new `erc-modified-channels-object' based on STRINGS.
269
 
If STRINGS is nil, we initialize `erc-modified-channels-object' to
270
 
an appropriate initial value for this flavor of Emacs."
 
268
  "Generate a new `erc-modified-channels-object' based on STRINGS."
271
269
  (if strings
272
270
      (if (featurep 'xemacs)
273
271
          (let ((e-m-c-s '("[")))
743
741
(defvar erc-modified-channels-update-inside nil
744
742
  "Variable to prevent running `erc-modified-channels-update' multiple
745
743
times.  Without it, you cannot debug `erc-modified-channels-display',
746
 
because the debugger also cases changes to the window-configuration.")
 
744
because the debugger also causes changes to the window-configuration.")
747
745
 
748
746
(defun erc-modified-channels-update (&rest _args)
749
747
  "This function updates the information in `erc-modified-channels-alist'
860
858
                        faces (cdr faces)))
861
859
                strings)))
862
860
           (newobject (erc-modified-channels-object strings)))
863
 
      (unless (equal oldobject newobject)
 
861
      (unless (equal-including-properties oldobject newobject)
864
862
        (setq erc-modified-channels-object newobject)
865
863
        (force-mode-line-update t)))))
866
864