Skip to content
Browse files

Other minor edits

  • Loading branch information...
1 parent b7665c4 commit a496974042cf5d8a9e48649391affe9b74069ae9 @jwiegley committed Aug 13, 2012
Showing with 8 additions and 9 deletions.
  1. +8 −9 init.el
View
17 init.el
@@ -3222,7 +3222,7 @@ FORM => (eval FORM)."
;;;_ , tablegen-mode
(use-package tablegen-mode
- :description "\
+ :description "\
This mode is used for editing .td files in the LLVM/Clang source code."
:mode ("\\.td\\'" . tablegen-mode))
@@ -3308,7 +3308,7 @@ This mode is used for editing .td files in the LLVM/Clang source code."
(defun wolfram-alpha-query (term)
(interactive (list (read-string "Ask Wolfram Alpha: " (word-at-point))))
- (require 'w3m-search)
+ (require 'w3m-search)
(w3m-browse-url (concat "http://m.wolframalpha.com/input/?i="
(w3m-search-escape-query-string term))))
@@ -3325,13 +3325,12 @@ This mode is used for editing .td files in the LLVM/Clang source code."
(defun w3m-browse-chrome-url-new-session ()
(interactive)
(let ((url (do-applescript
- (string-to-multibyte "tell application \"Google Chrome\"
- URL of active tab of front window
+ (string-to-multibyte "tell application \"Google Chrome\"
+ URL of active tab of front window
end tell"))))
(w3m-browse-url (substring url 1 (1- (length url))) t)))
(bind-key "A-M-e" 'goto-emacswiki)
- (bind-key "A-M-g" 'w3m-search)
(bind-key "A-M-g" 'w3m-search)
(bind-key "A-M-w" 'wikipedia-query))
@@ -3556,10 +3555,10 @@ end tell"))))
guessed-directories))
(unless (and choose-instead-of-guess
(not (y-or-n-p "Insert a snippet with useful headers? ")))
- (yas/expand-snippet "\
-# -*- mode: snippet -*-
-# name: $1
-# --
+ (yas/expand-snippet "\
+ # -*- mode: snippet -*-
+ # name: $1
+ # --
$0"))))
(bind-key "C-c y TAB" 'yas/expand)

0 comments on commit a496974

Please sign in to comment.
Something went wrong with that request. Please try again.