lawlist
lawlist
/ nsspellchecker.diff
Last active
May 30, 2016 16:45
nsspellchecker -- extracted code from Aquamacs and created unofficial draft patch for generic/vanilla build of Emacs master branch as of commit (05/29/2016) 76fb19b359dec8556dc66dbac3ad3d333feea3c3.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| diff --git a/lisp/term/common-win.el b/lisp/term/common-win.el | |
| index 937e47f..165263a 100644 | |
| --- a/lisp/term/common-win.el | |
| +++ b/lisp/term/common-win.el | |
| @@ -73,6 +73,8 @@ | |
| (cons (logior (lsh 0 16) 12) 'ns-new-frame) | |
| (cons (logior (lsh 0 16) 13) 'ns-toggle-toolbar) | |
| (cons (logior (lsh 0 16) 14) 'ns-show-prefs) | |
| + (cons (logior (lsh 0 16) 20) 'ns-check-spelling) | |
| + (cons (logior (lsh 0 16) 21) 'ns-spelling-change) |
lawlist
/ nsspellchecker_emacs25.diff
Created
November 4, 2016 03:30
Native splellchecking on OSX -- extracted from Aquamacs -- patch applies to Emacs 25 branch as of November 1, 2016 commit 5043e0a7e06dbf6507a59736e55bdde69d9a2a4e
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| diff --git a/lisp/term/common-win.el b/lisp/term/common-win.el | |
| index 937e47f..165263a 100644 | |
| --- a/lisp/term/common-win.el | |
| +++ b/lisp/term/common-win.el | |
| @@ -73,6 +73,8 @@ | |
| (cons (logior (lsh 0 16) 12) 'ns-new-frame) | |
| (cons (logior (lsh 0 16) 13) 'ns-toggle-toolbar) | |
| (cons (logior (lsh 0 16) 14) 'ns-show-prefs) | |
| + (cons (logior (lsh 0 16) 20) 'ns-check-spelling) | |
| + (cons (logior (lsh 0 16) 21) 'ns-spelling-change) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (require 'cl) | |
| (defun my-pop-to-buffer (buffer &optional action norecord) | |
| (message "buffer: %s | action: %s | norecord: %s" buffer action norecord)) | |
| (defun test-fn () | |
| "Doc-string." | |
| (interactive) | |
| (cl-letf (((symbol-function 'pop-to-buffer) #'my-pop-to-buffer)) | |
| (pop-to-buffer (current-buffer)))) |
lawlist
/ gist:8bc2c575ff709aee52faa893a8521bda
Created
April 11, 2018 03:56
undo-tree-debug-structs
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| https://emacs.stackexchange.com/q/34314/2287 | |
| undo-tree: Create a separate copy of `buffer-undo-tree` in Emacs 26.0.50 | |
| Q: Using Emacs 26.0.50, how to copy the buffer-undo-tree preserving the structure and create a completely separate copy -- including the hash-table (aka object-pool)? | |
| When using Emacs 25.2.1, setting the hash-table of the copy of buffer-undo-tree to a nil value does not alter the original buffer-undo-tree. | |
| When using Emacs 26.0.50 (master branch), setting the hash-table of the copy of buffer-undo-tree to a nil value alters the original buffer-undo-tree -- setting it to nil. |
lawlist
/ buffer-menu.el
Last active
June 28, 2019 06:00
A port of the Xemacs buffers menu-bar feature that works with Emacs 26.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (require 'org) | |
| (setq org-archive-location "~/Dropbox/logs/archive.org::") | |
| (defun org-archive-save-buffer () | |
| (let ((afile (org-extract-archive-file (org-get-local-archive-location)))) | |
| (if (file-exists-p afile) | |
| (let ((buffer (find-file-noselect afile))) | |
| (if (y-or-n-p (format "Save (%s)" buffer)) | |
| (with-current-buffer buffer |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (require 'dired) | |
| (defun qlmanage-return-focus-to-emacs () | |
| "Doc-string." | |
| (let* ((filename (dired-get-file-for-visit)) | |
| (emacs-executable (concat invocation-directory "Emacs")) | |
| (emacs-script (concat "tell application \"" emacs-executable "\" to activate"))) | |
| (set-process-sentinel | |
| (start-process "qlmanage" nil "/usr/bin/qlmanage" "-p" filename) | |
| `(lambda (p e) (when (= 0 (process-exit-status p)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /* *************************************************************************** */ | |
| /* BEGIN Feature Request # 16475: Automatically add/remove scroll bars. */ | |
| finish_scroll_bars: | |
| ; | |
| // ptrdiff_t bob_disregard_narrow = BUF_BEG (buffer); | |
| ptrdiff_t eob_disregard_narrow = BUF_Z (buffer); | |
| ptrdiff_t bob_respect_narrow = BUF_BEGV (buffer); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| make -C src emacs | |
| make: Entering directory `/c/docume~1/admini~1/desktop/emacs/src' | |
| GEN lisp.mk | |
| make: Leaving directory `/c/docume~1/admini~1/desktop/emacs/src' | |
| make: Entering directory `/c/docume~1/admini~1/desktop/emacs/src' | |
| make -C ../lib/ all | |
| make[1]: Entering directory `/c/docume~1/admini~1/desktop/emacs/lib' | |
| GEN alloca.h | |
| GEN byteswap.h | |
| GEN errno.h |
lawlist
/ get-bounds.el
Last active
July 17, 2019 05:06
Get the bounds of the selected frame using an applescript.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Feature request 18283 was previously added to Emacs 25 and the master branch in | |
| conjunction with feature request 21415. In a nutshell, it is now possible to act | |
| upon Emacs (to some degree) using an applescript. | |
| CAVEAT: Feature request 18283 was implemented primarily to facilitate debugging, | |
| and not to control Emacs per se using applescripts. | |
| (defun get-bounds () | |
| "Return the bounds of the selected frame." | |
| (let* ((script (concat "tell front window of application \"Emacs\"\n" |
OlderNewer