Skip to content

Instantly share code, notes, and snippets.

lawlist

Block or report user

Report or block lawlist

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@lawlist
lawlist / pop-to-buffer
Last active Jun 28, 2019
Take control of pop-to-buffer.
View pop-to-buffer
(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
lawlist / nsspellchecker_emacs25.diff
Created Nov 4, 2016
Native splellchecking on OSX -- extracted from Aquamacs -- patch applies to Emacs 25 branch as of November 1, 2016 commit 5043e0a7e06dbf6507a59736e55bdde69d9a2a4e
View nsspellchecker_emacs25.diff
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
lawlist / nsspellchecker.diff
Last active May 30, 2016
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.
View nsspellchecker.diff
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)
You can’t perform that action at this time.