← Back to branch summary

~ubuntu-branches/ubuntu/saucy/ecb/saucy

« back to all changes in this revision

Viewing changes to ecb-compilation.el

  • Committer: Bazaar Package Importer
  • Author(s): Joerg Jaspert
  • Date: 2004-09-01 22:15:18 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040901221518-0jfdt2apb2rj69ey
Tags: 2.27-1
And include latest Upstream too...

Show diffs side-by-side

added added

removed removed

Lines of Context:
ecb-compilation.el
26
26
;; GNU Emacs; see the file COPYING.  If not, write to the Free Software
27
27
;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
28
28
 
29
 
;; $Id: ecb-compilation.el,v 1.32 2004/02/16 08:56:41 berndl Exp $
 
29
;; $Id: ecb-compilation.el,v 1.34 2004/05/06 09:02:08 berndl Exp $
30
30
 
31
31
;;; Commentary:
32
32
 
103
103
  (catch 'exit
104
104
    (dolist (b (ecb-compilation-buffer-names))
105
105
      (if (null (cdr b))
106
 
          (if (string= name (car b))
 
106
          (if (ecb-string= name (car b))
107
107
              (throw 'exit name))
108
108
        (save-match-data
109
109
          (if (string-match (car b) name)
170
170
       (index 0))
171
171
 
172
172
    (setq buffer-list (sort buffer-list (lambda(first second)
173
 
                                          (string-lessp (buffer-name first)
174
 
                                                        (buffer-name second)))))
 
173
                                          (ecb-string< (buffer-name first)
 
174
                                                       (buffer-name second)))))
175
175
    (dolist(buffer buffer-list)
176
176
      (when (ecb-compilation-buffer-p buffer)
177
177
        (setq buffer-names
212
212
  `ecb-compilation-major-modes' or `ecb-compilation-predicates' define the
213
213
  buffer as compilation-buffer."
214
214
  ;;determine the best valid for the buffer.
215
 
  (let ((buffer (cond ((stringp buffer-or-name)
216
 
                       (get-buffer buffer-or-name))
217
 
                      ((bufferp buffer-or-name)
218
 
                       buffer-or-name)
219
 
                      (t
220
 
                       nil)))
 
215
  (let ((buffer (ecb-buffer-obj buffer-or-name))
221
216
        (ecb-comp-predicates (ecb-compilation-predicates)))
222
217
    (when buffer
223
218