我的emacs配置文件init.el和init-packages.el如下,为何 我不能列出melpa仓库的包?

以下为init.el

(package-initialize)

    (add-to-list 'load-path "~/.emacs.d/lisp/")

    (defun open-my-init-file()
      (interactive)
      (find-file "~/.emacs.d/init.el"))

    ;; Package Management
    ;; -----------------------------------------------------------------
    (require 'init-packages)

    ;; Python init
    ;; -----------------------------------------------------------------
    (require 'init-python)

    (custom-set-variables
     ;; custom-set-variables was added by Custom.
     ;; If you edit it by hand, you could mess it up, so be careful.
     ;; Your init file should contain only one such instance.
     ;; If there is more than one, they won’t work right.
     '(package-selected-packages '(use-package ## lsp-mode youdao-dictionary)))

    (custom-set-faces
     ;; custom-set-faces was added by Custom.
     ;; If you edit it by hand, you could mess it up, so be careful.
     ;; Your init file should contain only one such instance.
     ;; If there is more than one, they won’t work right.
     )

    ;; 显示时间
    (display-time)

     ;; 设置和系统互相粘贴
     (setq x-select-enable-clipboard t)

     ;; 有道词典Enable Cache
     (setq url-automatic-caching t)
     (global-set-key (kbd "C-q") 'youdao-dictionary-search-at-point+)

     ;; 禁用\e\e和\C-x\C-u
     (global-unset-key "\e\e")
     (global-unset-key "\C-x\C-u")

以下为init-packages.el

;;  __        __             __   ___
;; |__)  /\  /  ` |__/  /\  / _` |__
;; |    /~~\ \__, |  \ /~~\ \__> |___
;;                      __   ___        ___      ___
;; |\/|  /\  |\ |  /\  / _` |__   |\/| |__  |\ |  |
;; |  | /~~\ | \| /~~\ \__> |___  |  | |___ | \|  |
(when (>= emacs-major-version 24)
    (require 'package)
    (setq package-archives '(("gnu"   . "http://elpa.emacs-china.org/gnu/")
			     ("melpa" . "http://elpa.emacs-china.org/melpa/")
			     ("org" . "https://elpa.emacs-china.org/org/"))))

;; cl - Common Lisp Extension
(require 'cl-lib)

;; Add Packages
(defvar my/packages '(
			   ;; --- Auto-completion ---
			   company
			   ;; --- Better Editor ---
			   smooth-scrolling
			   hungry-delete
			   swiper
			   counsel
			   smartparens
			   popwin
			   ;; --- Major Mode ---
			   js2-mode
			   markdown-mode))

;; ...

;; 文件末尾
(provide 'init-packages)

我用M-x package-list只能看到elpa里面的包,看不到melpa里的包!请问是哪里设置错误了?

已经解决了,更新配置后忘记刷新包了。