elisp

How can I define an emacs command X that does something and then calls another emacs command Y and also copying the interactive interface of the command Y too? I want to define an altenative version of query-replace with temporarilly toggled value of case-fold-search: (defun alt-query-replace (a b c d e) (interactive) (let ((case-fold-search (not case-fold-search)) (query-replace a b c d e))) This doesn't work. When I call alt-query-replace, it says "wrong number of arguments". I want the interactive interface of alt-query-replace to be the same as query-replace. Do I need to inspect the

Sometimes I get multiple windows open for the same buffer (or a similar one) and I have to differentiate whether or not the buffer in the window is the same as another before deciding to either kill it or delete the window. Is there a way in emacs to simply delete a window only if the buffer exists already in another? Ideally I would like the same function to also kill the buffer and the window if it is the only instance of the buffer in a window. (defun delete-extra-windows () (interactive) (let* ((selwin (selected-window)) (buf (window-buffer selwin))) (walk-windows (lambda (ww) (unless (eq

I am facing some strange behavior with file-name completion in emacs. C-x C-f to find file opens up the minibuffer with i:/cygwin/home/rrajagop/StockScreener/working_copy/master_repo/stock_screener/. Hitting a TAB makes it i:/cygwini:/cygwin/home/rrajagop/StockScreener/working_copy/master_repo/stock_screener/. A couple of interesting things I've noticed: When the minibuffer opens up, i:/cygwin is greyed out and the path seems to start from /home. A C-a (go to begining of line) takes me to /home and not to i:/cygwin. So it looks like something in emacs is parsing the path to start from /home

How can I define a command in paredit mode that swaps parentheses and square brackets? The following code does what you request. You can bind swap-parens to whatever key binding you want. (defvar swap-paren-pairs '("()" "[]")) (defun swap-parens-at-points (b e) (let ((open-char (buffer-substring b (+ b 1))) (paren-pair-list (append swap-paren-pairs swap-paren-pairs))) (while paren-pair-list (if (eq (aref open-char 0) (aref (car paren-pair-list) 0)) (save-excursion (setq to-replace (cadr paren-pair-list)) (goto-char b) (delete-char 1) (insert (aref to-replace 0)) (goto-char (- e 1)) (delete

I know nothing about Emacs Lisp (or any Lisp, for that matter). I want to do something that seems very simple, yet I have had no luck with online guides. I want to create "packet-mode.el" for .packet files. I want to do the following: Enable C++ mode Make packet a keyword, while leaving the rest of C++ mode unchanged (define-derived-mode packet-mode fundamental-mode (font-lock-add-keywords 'c++-mode `(("packet" . font-lock-keyword-face))) (c++-mode)) (add-to-list 'auto-mode-alist '("\\.packet\\'" . packet-mode) (provide 'packet-mode) I've also tried switching the order of the statements in

When I press C-c c with the following code on a buffer, Emacs complains with Invalid function: (select-current-line) . Why? (defun select-current-line () "Select the current line" (interactive) (end-of-line) ; move to end of line (set-mark (line-beginning-position))) (defun my-isend () (interactive) (if (and transient-mark-mode mark-active) (isend-send) ((select-current-line) (isend-send))) ) (global-set-key (kbd "C-c c") 'my-isend) Not that it matters, but for those interested isend-send is defined here. You are missing a progn form to group statements together: (defun my-isend ()

I'm using (setq-default comment-style 'multi-line) and my region comments, when doing M-; , are: /* void main() * { * int i; * int b; * printf("format string"); * } */ But I want them to look like this: /* * void main() * { * int i; * int b; * printf("format string"); * } */ What do I have to change? Try with: (setq comment-style 'extra-line) Geyslan G. Bem Complementing the anler answer and answering my own question. To use the Linux Kernel commenting Style [1] in emacs, just set this variable in your .emacs/init.el : (setq comment-style 'extra-line) To comment/uncomment use M - ; after