Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2a8b13af
Commit
2a8b13af
authored
Jan 12, 2011
by
Chong Yidong
Browse files
* emacs-lisp/package.el (package--list-packages): Use switch-to-buffer.
parent
1b71db16
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
14 additions
and
9 deletions
+14
-9
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/emacs-lisp/package.el
lisp/emacs-lisp/package.el
+9
-9
No files found.
lisp/ChangeLog
View file @
2a8b13af
2011-01-12 Chong Yidong <cyd@stupidchicken.com>
* emacs-lisp/package.el (package--list-packages): Use
switch-to-buffer.
2011-01-11 Johan Bockgård <bojohan@gnu.org>
* emacs-lisp/unsafep.el (unsafep): Handle backquoted forms.
...
...
lisp/emacs-lisp/package.el
View file @
2a8b13af
...
...
@@ -1663,15 +1663,15 @@ A value of nil means to display all packages.")
Optional PACKAGES is a list of names of packages (symbols) to
list; the default is to display everything in `package-alist'."
(
require
'finder-inf
nil
t
)
(
with-current-buffer
(
get-buffer-create
"*Packages*"
)
(
package-menu-mode
)
(
set
(
make-local-variable
'package-menu-package-list
)
packages
)
(
set
(
make-local-variable
'package-menu-
sort-key
)
nil
)
(
package--generate-package-list
)
;; It's okay to use pop-to-buffer here. The package menu buffer
;; has keybindings
, and
the user
just typed `M-x list-packages',
;;
suggesting that they might want to use them
.
(
pop
-to-buffer
(
current-buffer
)
)))
(
let
((
buf
(
get-buffer-create
"*Packages*"
)
))
(
with-current-buffer
buf
(
package-menu-mode
)
(
set
(
make-local-variable
'package-menu-
package-list
)
packages
)
(
set
(
make-local-variable
'package-menu-sort-key
)
nil
)
(
package--generate-package-list
))
;;
The package menu buffer
has keybindings
. If
the user
types
;;
`M-x list-packages', that suggests it should become current
.
(
switch
-to-buffer
buf
)))
;;;###autoload
(
defun
list-packages
()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment