Skip to content

Commit

Permalink
remove some white spaces
Browse files Browse the repository at this point in the history
  • Loading branch information
byplayer committed Nov 4, 2011
1 parent dbc5d7b commit 8f99b4d
Showing 1 changed file with 7 additions and 10 deletions.
17 changes: 7 additions & 10 deletions egg.el
Original file line number Diff line number Diff line change
Expand Up @@ -1446,13 +1446,11 @@ OV-ATTRIBUTES are the extra decorations for each blame chunk."
(interactive "e")
(egg-mouse-do-command event 'egg-section-cmd-toggle-hide-show))

(defconst egg-hide-show-map
(defconst egg-hide-show-map
(let ((map (make-sparse-keymap "Egg:HideShow")))
(define-key map (kbd "h") 'egg-section-cmd-toggle-hide-show)
(define-key map (kbd "H") 'egg-section-cmd-toggle-hide-show-children)

(define-key map [mouse-2] 'egg-mouse-hide-show-cmd)

map)
"Keymap for a section than can be hidden/shown.\\{egg-hide-show-map}")

Expand All @@ -1465,7 +1463,7 @@ OV-ATTRIBUTES are the extra decorations for each blame chunk."
"Keymap for a section in sequence that can be navigated back and forth.
\\{egg-section-map}")

(defconst egg-diff-section-map
(defconst egg-diff-section-map
(let ((map (make-sparse-keymap "Egg:Diff")))
(set-keymap-parent map egg-section-map)
(define-key map (kbd "RET") 'egg-diff-section-cmd-visit-file-other-window)
Expand All @@ -1480,7 +1478,6 @@ OV-ATTRIBUTES are the extra decorations for each blame chunk."
(set-keymap-parent map egg-diff-section-map)
(define-key map (kbd "=") 'egg-staged-section-cmd-ediff3)
(define-key map (kbd "s") 'egg-diff-section-cmd-unstage)

(define-key map [C-down-mouse-2] 'egg-status-popup-staged-diff-menu)
(define-key map [C-mouse-2] 'egg-status-popup-staged-diff-menu)

Expand Down Expand Up @@ -1509,15 +1506,15 @@ the index. \\{egg-wdir-diff-section-map}")
"Keymap for a diff section in sequence of unstaged deltas.
\\{egg-unstaged-diff-section-map}")

(defconst egg-unmerged-diff-section-map
(defconst egg-unmerged-diff-section-map
(let ((map (make-sparse-keymap "Egg:UnmergedDiff")))
(set-keymap-parent map egg-unstaged-diff-section-map)
(define-key map (kbd "=") 'egg-unmerged-section-cmd-ediff3)
map)
"Keymap for a diff section in sequence of unmerged deltas.
\\{egg-unmerged-diff-section-map}")

(defconst egg-hunk-section-map
(defconst egg-hunk-section-map
(let ((map (make-sparse-keymap "Egg:Hunk")))
(set-keymap-parent map egg-section-map)
(define-key map (kbd "RET") 'egg-hunk-section-cmd-visit-file-other-window)
Expand All @@ -1526,7 +1523,7 @@ the index. \\{egg-wdir-diff-section-map}")
map)
"Keymap for a hunk in a diff section. \\{egg-hunk-section-map}")

(defconst egg-staged-hunk-section-map
(defconst egg-staged-hunk-section-map
(let ((map (make-sparse-keymap "Egg:StagedHunk")))
(set-keymap-parent map egg-hunk-section-map)
(define-key map (kbd "=") 'egg-staged-section-cmd-ediff3)
Expand All @@ -1539,15 +1536,15 @@ the index. \\{egg-wdir-diff-section-map}")
"Keymap for a hunk in a staged diff section.
\\{egg-staged-hunk-section-map}")

(defconst egg-wdir-hunk-section-map
(defconst egg-wdir-hunk-section-map
(let ((map (make-sparse-keymap "Egg:WdirHunk")))
(set-keymap-parent map egg-hunk-section-map)
(define-key map (kbd "u") 'egg-hunk-section-cmd-undo)
map)
"Keymap for a hunk in a diff section between the workdir and the index.
\\{egg-wdir-hunk-section-map}")

(defconst egg-unstaged-hunk-section-map
(defconst egg-unstaged-hunk-section-map
(let ((map (make-sparse-keymap "Egg:UnstagedHunk")))
(set-keymap-parent map egg-wdir-hunk-section-map)
(define-key map (kbd "=") 'egg-unstaged-section-cmd-ediff)
Expand Down

0 comments on commit 8f99b4d

Please sign in to comment.