mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-01 11:14:55 +00:00
Fix permanancy of BUFFER-LIST arg to list-buffers-noselect (Bug#7749).
* buff-menu.el (Buffer-menu-buffer-list): New var. (Buffer-menu-revert-function, list-buffers-noselect): Use it, so a restricted buffer list is not lost on revert (Bug#7749).
This commit is contained in:
Lennart Borgman
Chong Yidong
parent
c40b51e0ff
commit
320912fb3d
@ -1,3 +1,9 @@
|
||||
2011-01-08 Lennart Borgman <lennart.borgman@gmail.com>
|
||||
|
||||
* buff-menu.el (Buffer-menu-buffer-list): New var.
|
||||
(Buffer-menu-revert-function, list-buffers-noselect): Use it, so a
|
||||
restricted buffer list is not lost on revert (Bug#7749).
|
||||
|
||||
2011-01-08 Eric Hanchrow <eric.hanchrow@gmail.com>
|
||||
|
||||
* net/ldap.el (ldap-search-internal): Discard stderr output.
|
||||
|
||||
@ -111,9 +111,15 @@ A nil value means sort by visited order (the default).")
|
||||
This variable determines whether reverting the buffer lists only
|
||||
file buffers. It affects both manual reverting and reverting by
|
||||
Auto Revert Mode.")
|
||||
|
||||
(make-variable-buffer-local 'Buffer-menu-files-only)
|
||||
|
||||
(defvar Buffer-menu--buffers nil
|
||||
"If non-nil, list of buffers shown in the current buffer-menu.
|
||||
This variable determines whether reverting the buffer lists only
|
||||
this buffers. It affects both manual reverting and reverting by
|
||||
Auto Revert Mode.")
|
||||
(make-variable-buffer-local 'Buffer-menu--buffers)
|
||||
|
||||
(defvar Info-current-file) ;; from info.el
|
||||
(defvar Info-current-node) ;; from info.el
|
||||
|
||||
@ -281,7 +287,7 @@ Letters do not insert themselves; instead, they are commands.
|
||||
;; interactively current buffer is correctly identified with a `.'
|
||||
;; by `list-buffers-noselect'.
|
||||
(with-current-buffer (window-buffer)
|
||||
(list-buffers-noselect Buffer-menu-files-only))
|
||||
(list-buffers-noselect Buffer-menu-files-only Buffer-menu--buffers))
|
||||
(if oline
|
||||
(while (setq prop (next-single-property-change prop 'buffer))
|
||||
(when (eq (get-text-property prop 'buffer) oline)
|
||||
@ -920,6 +926,7 @@ For more information, see the function `buffer-menu'."
|
||||
(and desired-point
|
||||
(goto-char desired-point))
|
||||
(setq Buffer-menu-files-only files-only)
|
||||
(setq Buffer-menu--buffers buffer-list)
|
||||
(set-buffer-modified-p nil)
|
||||
(current-buffer))))
|
||||
|
||||
|
||||
@ -3532,7 +3532,7 @@ Ask means pop up a menu for the user to select one of copy, move or link."
|
||||
;;;;;; dired-run-shell-command dired-do-shell-command dired-do-async-shell-command
|
||||
;;;;;; dired-clean-directory dired-do-print dired-do-touch dired-do-chown
|
||||
;;;;;; dired-do-chgrp dired-do-chmod dired-compare-directories dired-backup-diff
|
||||
;;;;;; dired-diff) "dired-aux" "dired-aux.el" "03cf081d2aac54764123d2407c3196a2")
|
||||
;;;;;; dired-diff) "dired-aux" "dired-aux.el" "255ac82c318ef43da2e47b931c0f8581")
|
||||
;;; Generated autoloads from dired-aux.el
|
||||
|
||||
(autoload 'dired-diff "dired-aux" "\
|
||||
@ -3985,7 +3985,7 @@ true then the type of the file linked to by FILE is printed instead.
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads (dired-do-relsymlink dired-jump) "dired-x" "dired-x.el"
|
||||
;;;;;; "bb37ec379c0a523368794491b691fd8d")
|
||||
;;;;;; "48197b7ca054193643e01957196dd491")
|
||||
;;; Generated autoloads from dired-x.el
|
||||
|
||||
(autoload 'dired-jump "dired-x" "\
|
||||
|
||||
@ -10,7 +10,7 @@
|
||||
;;;;;; ceiling* floor* isqrt lcm gcd cl-progv-before cl-set-frame-visible-p
|
||||
;;;;;; cl-map-overlays cl-map-intervals cl-map-keymap-recursively
|
||||
;;;;;; notevery notany every some mapcon mapcan mapl maplist map
|
||||
;;;;;; cl-mapcar-many equalp coerce) "cl-extra" "cl-extra.el" "d93072a26c59f663a92b10df8bc28187")
|
||||
;;;;;; cl-mapcar-many equalp coerce) "cl-extra" "cl-extra.el" "de874ef326082f133b0324505ad37330")
|
||||
;;; Generated autoloads from cl-extra.el
|
||||
|
||||
(autoload 'coerce "cl-extra" "\
|
||||
@ -282,7 +282,7 @@ Not documented
|
||||
;;;;;; flet progv psetq do-all-symbols do-symbols dotimes dolist
|
||||
;;;;;; do* do loop return-from return block etypecase typecase ecase
|
||||
;;;;;; case load-time-value eval-when destructuring-bind function*
|
||||
;;;;;; defmacro* defun* gentemp gensym) "cl-macs" "cl-macs.el" "49b7d96626dd8ba5d39551909edbd4c7")
|
||||
;;;;;; defmacro* defun* gentemp gensym) "cl-macs" "cl-macs.el" "fd4df570f1dcbf83cde740819ae3734a")
|
||||
;;; Generated autoloads from cl-macs.el
|
||||
|
||||
(autoload 'gensym "cl-macs" "\
|
||||
@ -759,7 +759,7 @@ surrounded by (block NAME ...).
|
||||
;;;;;; find nsubstitute-if-not nsubstitute-if nsubstitute substitute-if-not
|
||||
;;;;;; substitute-if substitute delete-duplicates remove-duplicates
|
||||
;;;;;; delete-if-not delete-if delete* remove-if-not remove-if remove*
|
||||
;;;;;; replace fill reduce) "cl-seq" "cl-seq.el" "ec3ea1c77742734db8496272fe5721be")
|
||||
;;;;;; replace fill reduce) "cl-seq" "cl-seq.el" "ac5c427e92a38c5a2149acaa013caad9")
|
||||
;;; Generated autoloads from cl-seq.el
|
||||
|
||||
(autoload 'reduce "cl-seq" "\
|
||||
|
||||
@ -2641,7 +2641,7 @@ will be inserted before the group at point."
|
||||
;;;;;; ibuffer-backward-filter-group ibuffer-forward-filter-group
|
||||
;;;;;; ibuffer-toggle-filter-group ibuffer-mouse-toggle-filter-group
|
||||
;;;;;; ibuffer-interactive-filter-by-mode ibuffer-mouse-filter-by-mode
|
||||
;;;;;; ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" "4fb4f1a32cf4ecf4669a133a866f4a14")
|
||||
;;;;;; ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" "d98d015a69b22236de3cb1f7e456218b")
|
||||
;;; Generated autoloads from ibuf-ext.el
|
||||
|
||||
(autoload 'ibuffer-auto-mode "ibuf-ext" "\
|
||||
|
||||
@ -4232,7 +4232,7 @@ encoded string (and the same mask) will decode the string."
|
||||
;;; Start of automatically extracted autoloads.
|
||||
|
||||
;;;### (autoloads (rmail-edit-current-message) "rmailedit" "rmailedit.el"
|
||||
;;;;;; "60db8013bf16d7999914a16cda435287")
|
||||
;;;;;; "ecd28d8d92983488673388eced6fbf50")
|
||||
;;; Generated autoloads from rmailedit.el
|
||||
|
||||
(autoload 'rmail-edit-current-message "rmailedit" "\
|
||||
@ -4244,7 +4244,7 @@ Edit the contents of this message.
|
||||
|
||||
;;;### (autoloads (rmail-next-labeled-message rmail-previous-labeled-message
|
||||
;;;;;; rmail-read-label rmail-kill-label rmail-add-label) "rmailkwd"
|
||||
;;;;;; "rmailkwd.el" "7027ce1ac922c0dd51262b641e4d42c1")
|
||||
;;;;;; "rmailkwd.el" "bc72ffe3652be6f4c72048ae8f226fce")
|
||||
;;; Generated autoloads from rmailkwd.el
|
||||
|
||||
(autoload 'rmail-add-label "rmailkwd" "\
|
||||
@ -4287,7 +4287,7 @@ With prefix argument N moves forward N messages with these labels.
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "6c12c2d0563ae855f1069d7a80b8244a")
|
||||
;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "420a9c4619672f1f60f675126fbc9c08")
|
||||
;;; Generated autoloads from rmailmm.el
|
||||
|
||||
(autoload 'rmail-mime "rmailmm" "\
|
||||
@ -4313,7 +4313,7 @@ attachments as specfied by `rmail-mime-attachment-dirs-alist'.
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads (set-rmail-inbox-list) "rmailmsc" "rmailmsc.el"
|
||||
;;;;;; "b2a72d4e370f2d2b31b6f8f0794820e4")
|
||||
;;;;;; "9319e5b606ad5786c0c5994a307a38e8")
|
||||
;;; Generated autoloads from rmailmsc.el
|
||||
|
||||
(autoload 'set-rmail-inbox-list "rmailmsc" "\
|
||||
@ -4329,7 +4329,7 @@ This applies only to the current session.
|
||||
|
||||
;;;### (autoloads (rmail-sort-by-labels rmail-sort-by-lines rmail-sort-by-correspondent
|
||||
;;;;;; rmail-sort-by-recipient rmail-sort-by-author rmail-sort-by-subject
|
||||
;;;;;; rmail-sort-by-date) "rmailsort" "rmailsort.el" "5a3b5ee477d2fbf79d0c566d776a7fd4")
|
||||
;;;;;; rmail-sort-by-date) "rmailsort" "rmailsort.el" "16144a77fdc880034875fd624e4d73e6")
|
||||
;;; Generated autoloads from rmailsort.el
|
||||
|
||||
(autoload 'rmail-sort-by-date "rmailsort" "\
|
||||
@ -4388,7 +4388,7 @@ If prefix argument REVERSE is non-nil, sorts in reverse order.
|
||||
|
||||
;;;### (autoloads (rmail-summary-by-senders rmail-summary-by-topic
|
||||
;;;;;; rmail-summary-by-regexp rmail-summary-by-recipients rmail-summary-by-labels
|
||||
;;;;;; rmail-summary) "rmailsum" "rmailsum.el" "d855683972baef7111d4508dffbb54b6")
|
||||
;;;;;; rmail-summary) "rmailsum" "rmailsum.el" "6bcfd5937a56902944a929b89b33adaa")
|
||||
;;; Generated autoloads from rmailsum.el
|
||||
|
||||
(autoload 'rmail-summary "rmailsum" "\
|
||||
@ -4436,7 +4436,7 @@ SENDERS is a string of regexps separated by commas.
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads (unforward-rmail-message undigestify-rmail-message)
|
||||
;;;;;; "undigest" "undigest.el" "8cf8a8ffa48eeddf0bde388fa8de1783")
|
||||
;;;;;; "undigest" "undigest.el" "2869c38a0051d0acab1a5968627fa57d")
|
||||
;;; Generated autoloads from undigest.el
|
||||
|
||||
(autoload 'undigestify-rmail-message "undigest" "\
|
||||
|
||||
@ -6662,7 +6662,7 @@ If FACE is not a valid face name, use default face."
|
||||
;; But autoload them here to make the separation invisible.
|
||||
|
||||
;;;### (autoloads (ps-mule-end-job ps-mule-begin-job ps-mule-initialize
|
||||
;;;;;; ps-multibyte-buffer) "ps-mule" "ps-mule.el" "18a8bc30e8755ff27de7267f4bce3d99")
|
||||
;;;;;; ps-multibyte-buffer) "ps-mule" "ps-mule.el" "7fadcd6c4b18087e900bd21e6da5e854")
|
||||
;;; Generated autoloads from ps-mule.el
|
||||
|
||||
(defvar ps-multibyte-buffer nil "\
|
||||
|
||||
Loading…
Reference in New Issue
Block a user