Skip to content

Commit

Permalink
Merge branch 'outline' of https://github.com/tarsiiformes/Emacs-wgrep
Browse files Browse the repository at this point in the history
…into tarsiiformes-outline
  • Loading branch information
mhayashi1120 committed Mar 22, 2021
2 parents 58e1e96 + b9fde4c commit f9687c2
Showing 1 changed file with 24 additions and 24 deletions.
48 changes: 24 additions & 24 deletions wgrep.el
Expand Up @@ -123,9 +123,9 @@
;;; Variable / Constant
;;;

;;
;; Customize
;;
;;;;
;;;; Customize
;;;;

(defcustom wgrep-change-readonly-file nil
"Non-nil means to enable change read-only files."
Expand Down Expand Up @@ -153,9 +153,9 @@ Key to enable `wgrep-mode'."

(defvar wgrep-mode-map nil)

;;
;; Internal variable
;;
;;;;
;;;; Internal variable
;;;;

(defvar wgrep-readonly-state nil)
(make-variable-buffer-local 'wgrep-readonly-state)
Expand All @@ -181,9 +181,9 @@ Key to enable `wgrep-mode'."
;; GNU Emacs have this variable at least version 21 or later
(defvar auto-coding-regexp-alist)

;;
;; Constant
;;
;;;;
;;;; Constant
;;;;

;; These regexp come from `grep-regexp-alist' at grep.el
(eval-and-compile
Expand All @@ -207,15 +207,15 @@ Key to enable `wgrep-mode'."
wgrep-colon-file-separator-header-regexp
"\\)")))

;;
;; Error
;;
;;;;
;;;; Error
;;;;

(define-error 'wgrep-error "wgrep error")

;;
;; Overridable functions / regexp
;;
;;;;
;;;; Overridable functions / regexp
;;;;

(defvar wgrep-line-file-regexp wgrep-default-line-header-regexp
"Regexp that match to line header of grep result.
Expand All @@ -240,9 +240,9 @@ non editable region.")
;;; Basic utilities
;;;

;;
;; misc
;;
;;;;
;;;; misc
;;;;

;;Hack function
(defun wgrep-string-replace-bom (string cs)
Expand Down Expand Up @@ -273,19 +273,19 @@ non editable region.")
(or (null proc)
(eq (process-status proc) 'exit))))

;;
;; error
;;
;;;;
;;;; error
;;;;

(defun wgrep-check-file (file)
(unless (file-exists-p file)
(signal 'wgrep-error (list "File does not exist.")))
(unless (file-writable-p file)
(signal 'wgrep-error (list "File is not writable."))))

;;
;; overlay
;;
;;;;
;;;; overlay
;;;;

(defun wgrep-cleanup-overlays (beg end)
(dolist (ov (overlays-in beg end))
Expand Down

0 comments on commit f9687c2

Please sign in to comment.