[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101304: Set revert-buffer-function i
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101304: Set revert-buffer-function in Package Menu. |
Date: |
Thu, 02 Sep 2010 11:29:15 -0400 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101304
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Thu 2010-09-02 11:29:15 -0400
message:
Set revert-buffer-function in Package Menu.
* emacs-lisp/package.el (package-menu-mode-map): Change
package-menu-revert bindings to revert-buffer.
(package-menu-mode): Set revert-buffer-function.
(package-menu-revert): Doc fix.
modified:
lisp/ChangeLog
lisp/emacs-lisp/package.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-09-02 12:37:29 +0000
+++ b/lisp/ChangeLog 2010-09-02 15:29:15 +0000
@@ -1,3 +1,10 @@
+2010-09-02 Chong Yidong <address@hidden>
+
+ * emacs-lisp/package.el (package-menu-mode-map): Change
+ package-menu-revert bindings to revert-buffer.
+ (package-menu-mode): Set revert-buffer-function.
+ (package-menu-revert): Doc fix.
+
2010-09-02 Agustín Martín <address@hidden>
* textmodes/ispell.el (ispell-init-process): Use "~/" as
=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el 2010-08-31 01:53:46 +0000
+++ b/lisp/emacs-lisp/package.el 2010-09-02 15:29:15 +0000
@@ -1195,7 +1195,7 @@
(define-key map "\177" 'package-menu-backup-unmark)
(define-key map "d" 'package-menu-mark-delete)
(define-key map "i" 'package-menu-mark-install)
- (define-key map "g" 'package-menu-revert)
+ (define-key map "g" 'revert-buffer)
(define-key map "r" 'package-menu-refresh)
(define-key map "~" 'package-menu-mark-obsolete-for-deletion)
(define-key map "x" 'package-menu-execute)
@@ -1229,7 +1229,7 @@
:help "Mark a package for installation and move to the next
line"))
(define-key menu-map [s3] '("--"))
(define-key menu-map [mg]
- '(menu-item "Update package list" package-menu-revert
+ '(menu-item "Update package list" revert-buffer
:help "Update the list of packages"))
(define-key menu-map [mr]
'(menu-item "Refresh package list" package-menu-refresh
@@ -1272,6 +1272,7 @@
(setq mode-name "Package Menu")
(setq truncate-lines t)
(setq buffer-read-only t)
+ (setq revert-buffer-function 'package-menu-revert)
(setq header-line-format
(mapconcat
(lambda (pair)
@@ -1311,8 +1312,10 @@
(package-refresh-contents)
(package--generate-package-list))
-(defun package-menu-revert ()
- "Update the list of packages."
+(defun package-menu-revert (&optional arg noconfirm)
+ "Update the list of packages.
+This function is the `revert-buffer-function' for Package Menu
+buffers. The arguments are ignored."
(interactive)
(unless (eq major-mode 'package-menu-mode)
(error "The current buffer is not a Package Menu"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101304: Set revert-buffer-function in Package Menu.,
Chong Yidong <=