diff options
| author | Paul Eggert | 2015-02-22 22:00:01 -0800 |
|---|---|---|
| committer | Paul Eggert | 2015-02-22 22:00:26 -0800 |
| commit | 34871865de0452cd251e92d76ab12c2ac237e783 (patch) | |
| tree | d76c9431e3d4a1a9ce121079906b84f2dd5fc560 | |
| parent | e846bbf360d1bcee3a35dd05a57bc76cbb22a6f0 (diff) | |
| download | emacs-34871865de0452cd251e92d76ab12c2ac237e783.tar.gz emacs-34871865de0452cd251e92d76ab12c2ac237e783.zip | |
Fix the desired binding for comment-line
* bindings.el (ctl-x-map): Use [?\C-\;] to get the desired binding.
Fixes: bug#19826
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/bindings.el | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6352d77ca3a..c1fb8697707 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2015-02-23 Paul Eggert <eggert@cs.ucla.edu> | ||
| 2 | |||
| 3 | Fix the desired binding for comment-line | ||
| 4 | * bindings.el (ctl-x-map): Use [?\C-\;] to get the desired binding. | ||
| 5 | Fixes: bug#19826 | ||
| 6 | |||
| 1 | 2015-02-23 Stefan Monnier <monnier@iro.umontreal.ca> | 7 | 2015-02-23 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 8 | ||
| 3 | * emacs-lisp/macroexp.el (macroexp-parse-body): Handle cl-declare | 9 | * emacs-lisp/macroexp.el (macroexp-parse-body): Handle cl-declare |
diff --git a/lisp/bindings.el b/lisp/bindings.el index a1f0d987f5c..b658914c454 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el | |||
| @@ -1130,7 +1130,7 @@ if `inhibit-field-text-motion' is non-nil." | |||
| 1130 | (define-key esc-map "j" 'indent-new-comment-line) | 1130 | (define-key esc-map "j" 'indent-new-comment-line) |
| 1131 | (define-key esc-map "\C-j" 'indent-new-comment-line) | 1131 | (define-key esc-map "\C-j" 'indent-new-comment-line) |
| 1132 | (define-key ctl-x-map ";" 'comment-set-column) | 1132 | (define-key ctl-x-map ";" 'comment-set-column) |
| 1133 | (define-key ctl-x-map "\M-;" 'comment-line) | 1133 | (define-key ctl-x-map [?\C-\;] 'comment-line) |
| 1134 | (define-key ctl-x-map "f" 'set-fill-column) | 1134 | (define-key ctl-x-map "f" 'set-fill-column) |
| 1135 | (define-key ctl-x-map "$" 'set-selective-display) | 1135 | (define-key ctl-x-map "$" 'set-selective-display) |
| 1136 | 1136 | ||