Mercurial > emacs
comparison lisp/msb.el @ 91327:606f2d163a64
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-312
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 09 Jan 2008 01:21:15 +0000 |
| parents | 880960b70474 4c3c683cdff8 |
| children |
comparison
equal
deleted
inserted
replaced
| 91326:b1a63d7fa09c | 91327:606f2d163a64 |
|---|---|
| 1 ;;; msb.el --- customizable buffer-selection with multiple menus | 1 ;;; msb.el --- customizable buffer-selection with multiple menus |
| 2 | 2 |
| 3 ;; Copyright (C) 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, | 3 ;; Copyright (C) 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, |
| 4 ;; 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. | 4 ;; 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Author: Lars Lindberg <lars.lindberg@home.se> | 6 ;; Author: Lars Lindberg <lars.lindberg@home.se> |
| 7 ;; Maintainer: FSF | 7 ;; Maintainer: FSF |
| 8 ;; Created: 8 Oct 1993 | 8 ;; Created: 8 Oct 1993 |
| 9 ;; Lindberg's last update version: 3.34 | 9 ;; Lindberg's last update version: 3.34 |
| 827 (let ((mode-list nil)) | 827 (let ((mode-list nil)) |
| 828 (dolist (buffer (cdr (buffer-list))) | 828 (dolist (buffer (cdr (buffer-list))) |
| 829 (with-current-buffer buffer | 829 (with-current-buffer buffer |
| 830 (when (and (not (msb-invisible-buffer-p)) | 830 (when (and (not (msb-invisible-buffer-p)) |
| 831 (not (assq major-mode mode-list))) | 831 (not (assq major-mode mode-list))) |
| 832 (push (cons major-mode mode-name) | 832 (push (cons major-mode |
| 833 (format-mode-line mode-name nil nil buffer)) | |
| 833 mode-list)))) | 834 mode-list)))) |
| 834 mode-list) | 835 mode-list) |
| 835 (lambda (item1 item2) | 836 (lambda (item1 item2) |
| 836 (string< (cdr item1) (cdr item2))))))) | 837 (string< (cdr item1) (cdr item2))))))) |
| 837 | 838 |