5

I have the following in my .emacs: ;; date (global-set-key "\C-\M-d" (lambda (arg) (interactive "P") (let ((separator (pcase arg ('(4) "-") (0 "/") (_ "")))) (insert (format-time-string (concat "%Y" separator "%m&...


4

M-S-Z would mean Meta + Shift + Z. But Z (uppercase) is itself what Emacs uses for Shift> + z. There's likely no key on your keyboard corresponding to S-Z. That's why you say it doesn't work. If you use C-h b you'll find your key binding listed OK. And if you use C-h w zap-up-to-char-backward you'll see that it says it's bound to M-S-Z. The problem is ...


3

You can see what you've done with C-h l (aka M-x view-lossage). As for putting a kind of "safety fence", it should be fairly easy to do, by placing an appropriate function of pre-command-hook. You could start with something like: (defvar my-fence-let-pass '(self-insert-command next-line previous-line right-char left-char handle-select-...


3

I think it's a bug. If you don't use that alist as the KEYMAP arg, but instead you create a keymap, assign it to a variable, use define-key with (kbd "C-n") etc., and use that variable as the KEYMAP arg, then it works. Please consider using M-x report-emacs-bug, to report this. (setq toto-map (make-sparse-keymap)) (defun foo () "..." (...


3

C-u invokes the function universal-argument, and you want to ensure that eval-last-sexp is called as if you invoked it interactively, which is done with call-interactively. You can simulate universal-argument by let-binding current-prefix-arg. Putting that all together: (global-set-key (kbd "C-c c") (lambda () (...


2

You could create a minor mode that binds the arrow keys to the functions you want. Then your 'special' key only needs to toggle the minor mode on and off. You would bind the 'special' key in your major mode map, and make the minor mode buffer-local, so it would only change the behaviour in files in that major mode.


2

Here's a function that manufactures a filename out of today's time stamp and writes the file out: (defun write-file-timestamp () (interactive) (let ((fname (format-time-string "%Y-%m-%d.org"))) (write-file fname t))) The t argument in the write-file call asks for confirmation if the file exists already: you can omit it if you don't ...


1

With a sun keyboard, for me, it works quite straight forward. (global-set-key (kbd "<XF86Paste>") 'yank) (global-set-key (kbd "<XF86Copy>") 'kill-ring-save) (global-set-key (kbd "<XF86Cut>") 'kill-region) For the terminal integration, that's related to the OS itself and how it manage the keyboard input, this ...


1

First: a variable can not have two different values at the same time. (setq smerge-command-prefix "\C-cv") (setq smerge-command-prefix "\C-c\C-v") Second: to use this prefix the above variable has to be set before smerge-mode is loaded. So either ensure that (setq smerge-command-prefix "\C-cv") is eval'd before you use (or ...


1

I figured out that I should add the following code to my .emacs file: (defvar in-xxx-message nil) (defun xxx-message (&rest args) (cond (args (let ((result (apply 'format args))) (if (and (not in-xxx-message) (or (string-match "<Scroll_Lock>" result) (string-match "is ...


1

The following setting makes the left alt/option key behave like a system default key (so that one may use special symbols, foreign language characters, and so forth), and the right alt/opion key behaves as the Meta key: (setq ns-alternate-modifier 'none ns-right-alternate-modifier 'meta)


1

One solution could be to advise the define-key function and check which key is being bound against a block list: (defvar define-key-block-list '("C-x C-s")) (defun define-key-filter (define-key &rest args) (if (cl-member (nth 1 args) define-key-block-list :key 'kbd :test 'equal) (message "Blocked %s from being bound" (key-...


1

The keybindings created with :bind expect a function name (not sure how lambdas are expanded) so you can define a named function in the :init clause of use-package which should work as expected... (use-package eshell :after esh-mode :init (defun my-clear-shell () (interactive) (message "I am some other function")) :bind (:map ...


1

I have adapted your answer and extend it to toggle Help window (helpful when we want it gone from the screen without leaving the minibuffer) and perform Ivy's native TAB (albeit with one more key stroke). ;;;###autoload (defun my-ivy-toggle-help/tab (&rest _args) "Either describe current symbol or perform partial complete. If last command is `self'...


Only top voted, non community-wiki answers of a minimum length are eligible