.emacs-my
changeset 230 b34c94fa13d9
parent 229 0a42b3480404
child 231 053a9e877724
equal deleted inserted replaced
229:0a42b3480404 230:b34c94fa13d9
   339 (setq revert-without-query (quote (".*")))
   339 (setq revert-without-query (quote (".*")))
   340 (setq auto-revert-interval 2)
   340 (setq auto-revert-interval 2)
   341 
   341 
   342 ;; ======================================================================
   342 ;; ======================================================================
   343 ;; Convenient
   343 ;; Convenient
       
   344 
       
   345 (defun reglen()
       
   346   "Show region length."
       
   347   (interactive)
       
   348   (message "%s" (- (region-end) (region-beginning))))
   344 
   349 
   345 ;; ----------------------------------------------------------------------
   350 ;; ----------------------------------------------------------------------
   346 ;; Completion
   351 ;; Completion
   347 
   352 
   348 (require 'icomplete) ; Interactive completion in minibuffer.
   353 (require 'icomplete) ; Interactive completion in minibuffer.