emacs: lisp/files.el comparison

comparison lisp/files.el @ 83632:cc587bfd19ca

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 781-792) - Update from CVS - Merge from gnus--rel--5.10 - Merge from emacs--rel--22 * emacs--rel--22 (patch 33-41) * gnus--rel--5.10 (patch 226-228) - Update from CVS Revision: emacs@sv.gnu.org/emacs--multi-tty--0--patch-21

author	Miles Bader <miles@gnu.org>
date	Mon, 11 Jun 2007 01:00:07 +0000
parents	422451dd396a 24cf4b8dd654
children	0ece58f6e0aa

comparison

equal deleted inserted replaced

-:7d63b897231b
+:cc587bfd19ca
 ("\\.texinfo\\'" . texinfo-mode)
 ("\\.te?xi\\'" . texinfo-mode)
 ("\\.[sS]\\'" . asm-mode)
 ("\\.asm\\'" . asm-mode)
 ("[cC]hange\\.?[lL]og?\\'" . change-log-mode)
-("[cC]hange[lL]og[-.][-0-9a-z]+\\'" . change-log-mode)
+("[cC]hange[lL]og[-.][0-9]+\\'" . change-log-mode)
 ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode)
 ("\\.scm\\.[0-9]*\\'" . scheme-mode)
 ("\\.[ck]?sh\\'\\|\\.shar\\'\\|/\\.z?profile\\'" . sh-mode)
 ("\\.bash\\'" . sh-mode)
 ("\\(/\\|\\`\\)\\.\\(bash_profile\\|z?login\\|bash_login\\|z?logout\\)\\'" . sh-mode)
 ("\\.properties\\(?:\\.[a-zA-Z0-9._-]+\\)?\\'" . conf-javaprop-mode)
 ;; *.cf, *.cfg, *.conf, *.config[.local|.de_DE.UTF8|...], */config
 ("[/.]c\\(?:on\\)?f\\(?:i?g\\)?\\(?:\\.[a-zA-Z0-9._-]+\\)?\\'" . conf-mode)
 ("\\`/etc/\\(?:DIR_COLORS\\|ethers\\|.?fstab\\|.*hosts\\|lesskey\\|login\\.?de\\(?:fs\\|vperm\\)\\|magic\\|mtab\\|pam\\.d/.*\\|permissions\\(?:\\.d/.+\\)?\\|protocols\\|rpc\\|services\\)\\'" . conf-space-mode)
 ("\\`/etc/\\(?:acpid?/.+\\|aliases\\(?:\\.d/.+\\)?\\|default/.+\\|group-?\\|hosts\\..+\\|inittab\\|ksysguarddrc\\|opera6rc\\|passwd-?\\|shadow-?\\|sysconfig/.+\\)\\'" . conf-mode)
+;; ChangeLog.old etc.  Other change-log-mode entries are above;
+;; this has lower priority to avoid matching changelog.sgml etc.
+("[cC]hange[lL]og[-.][-0-9a-z]+\\'" . change-log-mode)
 ;; either user's dot-files or under /etc or some such
 ("/\\.?\\(?:gnokiirc\\|kde.*rc\\|mime\\.types\\|wgetrc\\)\\'" . conf-mode)
 ;; alas not all ~/.*rc files are like this
 ("/\\.\\(?:enigma\\|gltron\\|gtk\\|hxplayer\\|net\\|neverball\\|qt/.+\\|realplayer\\|scummvm\\|sversion\\|sylpheed/.+\\|xmp\\)rc\\'" . conf-mode)
 ("/\\.\\(?:gdbtkinit\\|grip\\|orbital/.+txt\\|rhosts\\|tuxracer/options\\)\\'" . conf-mode)
 			     files
 			     '("file" "files" "recover"))
 	    (message "No files can be recovered from this session now")))
 (kill-buffer buffer))))
+(defun kill-buffer-ask (buffer)
+"Kill buffer if confirmed."
+(when (yes-or-no-p
+(format "Buffer %s %s.  Kill? " (buffer-name buffer)
+(if (buffer-modified-p buffer)
+"HAS BEEN EDITED" "is unmodified")))
+(kill-buffer buffer)))
 (defun kill-some-buffers (&optional list)
 "Kill some buffers.  Asks the user whether to kill each one of them.
 Non-interactively, if optional argument LIST is non-nil, it
 specifies the list of buffers to kill, asking for approval for each one."
 (interactive)
 	   (name (buffer-name buffer)))
 (and name				; Can be nil for an indirect buffer
 					; if we killed the base buffer.
 	   (not (string-equal name ""))
 	   (/= (aref name 0) ?\s)
-	   (yes-or-no-p
+	   (kill-buffer-ask buffer)))
-	    (format "Buffer %s %s.  Kill? "
-		    name
-		    (if (buffer-modified-p buffer)
-			"HAS BEEN EDITED" "is unmodified")))
-	   (kill-buffer buffer)))
 (setq list (cdr list))))
+(defun kill-matching-buffers (regexp &optional internal-too)
+"Kill buffers whose name matches the specified regexp.
+The optional second argument indicates whether to kill internal buffers too."
+(interactive "sKill buffers matching this regular expression: \nP")
+(dolist (buffer (buffer-list))
+(let ((name (buffer-name buffer)))
+(when (and name (not (string-equal name ""))
+(or internal-too (/= (aref name 0) ?\s))
+(string-match regexp name))
+(kill-buffer-ask buffer)))))
 (defun auto-save-mode (arg)
 "Toggle auto-saving of contents of current buffer.
 With prefix argument ARG, turn auto-saving on if positive, else off."
 (interactive "P")

Mercurial > emacs

comparison lisp/files.el @ 83632:cc587bfd19ca