.emacs-my
changeset 1459 6beb77e22575
parent 1458 23dfd73cb7fa
child 1460 d6606777ff0a
equal deleted inserted replaced
1458:23dfd73cb7fa 1459:6beb77e22575
   307 (when (fboundp 'package-initialize)
   307 (when (fboundp 'package-initialize)
   308   (package-initialize))
   308   (package-initialize))
   309 
   309 
   310 (setq package-archives
   310 (setq package-archives
   311       '(("gnu" . "http://elpa.gnu.org/packages/")
   311       '(("gnu" . "http://elpa.gnu.org/packages/")
   312         ("melpa" . "http://melpa.milkbox.net/packages/")
       
   313         ;; ("marmalade" . "http://marmalade-repo.org/packages/")
   312         ;; ("marmalade" . "http://marmalade-repo.org/packages/")
   314         ))
   313         ("melpa-stbl" . "https://stable.melpa.org/packages/")
       
   314         ("melpa" . "http://melpa.milkbox.net/packages/"))
       
   315       package-archive-priorities
       
   316       '(("gnu" . 10)
       
   317         ("melpa-stbl" . 5)
       
   318         ("melpa" . 0)) )
   315 
   319 
   316 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   320 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   317 (message "appearance")
   321 (message "appearance")
   318 
   322 
   319 ;; To maximize frame on full screen, not work with Windows Emacs 21.4.
   323 ;; To maximize frame on full screen, not work with Windows Emacs 21.4.
  1114 ;; (setq company-dabbrev-time-limit 0.1)
  1118 ;; (setq company-dabbrev-time-limit 0.1)
  1115 (setq company-dabbrev-downcase nil)
  1119 (setq company-dabbrev-downcase nil)
  1116 
  1120 
  1117 ;; (setq company-backends (delete 'company-dabbrev company-backends))
  1121 ;; (setq company-backends (delete 'company-dabbrev company-backends))
  1118 
  1122 
  1119 (defun my-company-filter-out-numbers (lst)
  1123 (defun my/company-filter-out-numbers (lst)
  1120   (cl-remove-if (lambda (str) (string-match-p "^[0-9]" str)) lst))
  1124   (cl-remove-if (lambda (str) (string-match-p "^[0-9]" str)) lst))
  1121 
  1125 
  1122 (when (featurep 'company)
  1126 (when (featurep 'company)
  1123   (push #'my-company-filter-out-numbers company-transformers))
  1127   (push #'my/company-filter-out-numbers company-transformers))
  1124 
  1128 
  1125 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1129 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1126 (message "bookmark")
  1130 (message "bookmark")
  1127 
  1131 
  1128 ;; (require 'autobm)
  1132 ;; (require 'autobm)