# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1447153617 -7200
# Node ID b78bf2c141ab00f9cf966d3caa56b16ca24f5e7f
# Parent  57b16a684500208c65b0594c21e72a587ef972c4
Use consistent style for internal names.

diff -r 57b16a684500 -r b78bf2c141ab .emacs-my
--- a/.emacs-my	Tue Nov 10 13:04:25 2015 +0200
+++ b/.emacs-my	Tue Nov 10 13:06:57 2015 +0200
@@ -979,7 +979,7 @@
 (icomplete-mode 1)
 (setq icomplete-with-completion-tables t)
 
-(defun my--is-file-large ()
+(defun my--large-file-p ()
   "If buffer too large and my cause performance issue."
   (< large-file-warning-threshold (buffer-size)))
 
@@ -995,7 +995,7 @@
   (set (make-variable-buffer-local 'line-number-mode) nil)
   (set (make-variable-buffer-local 'column-number-mode) nil) )
 
-(add-to-list 'magic-mode-alist (cons #'my--is-file-large #'my-large-file-mode))
+(add-to-list 'magic-mode-alist (cons #'my--large-file-p #'my-large-file-mode))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "bookmark")
@@ -2201,7 +2201,7 @@
 
 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode))
 
-(defun my-c++-header-file-p ()
+(defun my--c++-header-file-p ()
   "Return non-nil, if in a C++ header."
   (and (string-match "\\.h$"
                      (or (buffer-file-name)
@@ -2210,7 +2210,7 @@
          (re-search-forward "\\_<class\\_>" nil t))))
 
 (when (>= emacs-major-version 22)
-  (add-to-list 'magic-mode-alist '(my-c++-header-file-p . c++-mode))
+  (add-to-list 'magic-mode-alist '(my--c++-header-file-p . c++-mode))
   )
 
 (setq-default comment-style (quote indent))