minor

README.md

@@ -19,7 +19,7 @@ A collecton of emacs utilities, and basis for several of my packages. Here are s
 
 # Index:
 
-_Auto-generated before each commit. Total items in the library: 101_
+_Auto-generated before each commit. Total items in the library: 100_
 
 #### Table of contents:
 
@@ -133,7 +133,6 @@ Similar to what happends when emacs is about to quit.
 
 * es-mouse-copy-symbol
 * es-mouse-yank-replace-symbol
-* es-new-empty-buffer
 * es-push-line
 
 ```

es-lib-core-functions.el

@@ -361,7 +361,8 @@ Marks the symbol on first call, then marks the statement."
         ( t (comment-or-uncomment-region (line-beginning-position)
                                          (line-end-position)
                                          arg)
-            (indent-according-to-mode))))
+            (unless (memq indent-line-function '(coffee-indent-line))
+              (indent-according-to-mode)))))
 
 ;;;###autoload
 (cl-defun es-ido-like-helm (&optional this-mode-only)

es-lib-number-at-point.el

@@ -57,30 +57,30 @@
                  (when (re-search-backward "[[:digit:]]" (line-beginning-position) t)
                    (es--change-number-at-point ammout))
                  (goto-char (- (line-end-position) end-distance))))
-        (cl-multiple-value-bind
-            (num-string beg end allow-negative)
-            number
-          (let* (( start-pos (point))
-                 ( distance-from-end (- end start-pos))
-                 ( increment (* (expt 10 (1- distance-from-end))
-                                (or ammout 1)))
-                 ( result (+ (string-to-number num-string) increment))
-                 ( --- (unless allow-negative
-                         (setq result (max 0 result))))
-                 ( result-string (number-to-string
-                                  result))
-                 ( suggested-new-pos (+ start-pos
-                                        (length result-string)
-                                        (- (length num-string)))))
-            ;; Don't create an unnecessary undo state
-            (when (string-equal num-string result-string)
-              (cl-return-from es--change-number-at-point))
-            (delete-region beg end)
-            (insert result-string)
+      (cl-multiple-value-bind
+          (num-string beg end allow-negative)
+          number
+        (let* (( start-pos (point))
+               ( distance-from-end (- end start-pos))
+               ( increment (* (expt 10 (1- distance-from-end))
+                              (or ammout 1)))
+               ( result (+ (string-to-number num-string) increment))
+               ( --- (unless allow-negative
+                       (setq result (max 0 result))))
+               ( result-string (number-to-string
+                                result))
+               ( suggested-new-pos (+ start-pos
+                                      (length result-string)
+                                      (- (length num-string)))))
+          ;; Don't create an unnecessary undo state
+          (when (string-equal num-string result-string)
+            (cl-return-from es--change-number-at-point))
+          (delete-region beg end)
+          (insert result-string)
 
-            (goto-char (max beg suggested-new-pos))
-            (skip-chars-forward "-")
-            )))))
+          (goto-char (max beg suggested-new-pos))
+          (skip-chars-forward "-")
+          )))))
 
 ;;;###autoload
 (defun es-increase-number-at-point ()