Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7cce3c91
Commit
7cce3c91
authored
Nov 15, 2009
by
Chong Yidong
Browse files
* dired.el (dired-mode-map): Move encryption items to "Operate"
menu (Bug#4703).
parent
d7063de9
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
27 additions
and
27 deletions
+27
-27
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/dired.el
lisp/dired.el
+24
-27
No files found.
lisp/ChangeLog
View file @
7cce3c91
2009-11-15 Chong Yidong <cyd@stupidchicken.com>
* dired.el (dired-mode-map): Move encryption items to "Operate"
menu (Bug#4703).
* strokes.el (strokes-update-window-configuration): Make strokes
buffer current before erasing (Bug#4906).
...
...
lisp/dired.el
View file @
7cce3c91
...
...
@@ -1410,29 +1410,6 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
(
define-key
map
[menu-bar
immediate]
(
cons
"Immediate"
(
make-sparse-keymap
"Immediate"
)))
(define-key map
[menu-bar immediate epa-dired-do-decrypt]
'(menu-item "Decrypt" epa-dired-do-decrypt
:help "Decrypt file at cursor"))
(define-key map
[menu-bar immediate epa-dired-do-verify]
'(menu-item "Verify" epa-dired-do-verify
:help "Verify digital signature of file at cursor"))
(define-key map
[menu-bar immediate epa-dired-do-sign]
'(menu-item "Sign" epa-dired-do-sign
:help "Create digital signature of file at cursor"))
(define-key map
[menu-bar immediate epa-dired-do-encrypt]
'(menu-item "Encrypt" epa-dired-do-encrypt
:help "Encrypt file at cursor"))
(define-key map [menu-bar immediate dashes-4]
'("--"))
(
define-key
map
[menu-bar
immediate
image-dired-dired-display-external]
'
(
menu-item
"Display Image Externally"
image-dired-dired-display-external
...
...
@@ -1442,9 +1419,6 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
'
(
menu-item
"Display Image"
image-dired-dired-display-image
:help
"Display sized image in a separate window"
))
(define-key map [menu-bar immediate dashes-4]
'("--"))
(
define-key
map
[menu-bar
immediate
revert-buffer]
'
(
menu-item
"Refresh"
revert-buffer
:help
"Update contents of shown directories"
))
...
...
@@ -1603,6 +1577,29 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
'
(
menu-item
"Display image thumbnails"
image-dired-display-thumbs
:help
"Display image thumbnails for current or marked image files"
))
(
define-key
map
[menu-bar
operate
dashes-4]
'
(
"--"
))
(
define-key
map
[menu-bar
operate
epa-dired-do-decrypt]
'
(
menu-item
"Decrypt"
epa-dired-do-decrypt
:help
"Decrypt file at cursor"
))
(
define-key
map
[menu-bar
operate
epa-dired-do-verify]
'
(
menu-item
"Verify"
epa-dired-do-verify
:help
"Verify digital signature of file at cursor"
))
(
define-key
map
[menu-bar
operate
epa-dired-do-sign]
'
(
menu-item
"Sign"
epa-dired-do-sign
:help
"Create digital signature of file at cursor"
))
(
define-key
map
[menu-bar
operate
epa-dired-do-encrypt]
'
(
menu-item
"Encrypt"
epa-dired-do-encrypt
:help
"Encrypt file at cursor"
))
(
define-key
map
[menu-bar
operate
dashes-3]
'
(
"--"
))
...
...
@@ -3471,7 +3468,7 @@ Ask means pop up a menu for the user to select one of copy, move or link."
;;;;;; dired-run-shell-command dired-do-shell-command dired-do-async-shell-command
;;;;;; dired-clean-directory dired-do-print dired-do-touch dired-do-chown
;;;;;; dired-do-chgrp dired-do-chmod dired-compare-directories dired-backup-diff
;;;;;; dired-diff) "dired-aux" "dired-aux.el" "
e207e02ac395d10ee4a09e208081a0ce
")
;;;;;; dired-diff) "
dired-aux
" "
dired-aux.el
" "
87433c3c284e8cef58102a1583e29438
")
;;; Generated autoloads from dired-aux.el
(autoload 'dired-diff "
dired-aux
" "
\
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment