Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

nothing

  • Loading branch information...
commit 0f9370e86c857713734467b3ca25679986401472 1 parent fd0ff23
@graehl authored
View
8 buffer-init.el
@@ -32,13 +32,11 @@ file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)"))
functions from which to deduce C++ namespace names."
':type 'alist )
-(defun my-filter-path-elts
-(if (equal (car pe) "x")
- (my-filter-path-elts (cdr pe))
- (if (or (equal (car pe) "r") (equal (car pe) "racerx"))
+(defun my-filter-path-elts (pe)
+ (if (or (equal (car pe) "x") (equal (car pe) "r") (equal (car pe) "racerx"))
(my-filter-path-elts (cons "LW" (my-filter-path-elts (cdr pe))))
(if (equal (car pe) "LWUtil")
nil
- pe))))
+ pe)))
(provide 'buffer-init)
View
7 defuns/c-defuns.el
@@ -177,20 +177,23 @@ is not supplied, the boost copyright is used by default"
path-elts)
(insert nsfini)
- (setq final (point))
(newline)
+ (setq final (point))
+ (newline)
(bufend)
;; make sure the next stuff goes on its own line
(if (not (equal (current-column) 0))
(newline))
-
+ (newline)
;; closing namespace stuff
(mapc (lambda (n) (insert "}")) path-elts)
+(when nil
(reduce (lambda (prefix n)
(insert prefix n) "::")
path-elts
:initial-value " // namespace ")
+)
(insert nsfini)
(insert nsfini)
(insert "#endif // " guard)
View
1  key-bindings.el
@@ -294,3 +294,4 @@
(global-set-key (kbd "C-M-g") 'keyboard-quit)
(require 'minibuffer-defuns)
(global-set-key (kbd "C-g") 'keyboard-really-quit)
+(global-set-key (kbd "M-g") '(lambda () (interactive) (exchange-point-and-mark 1)))
View
1  local.el
@@ -5,3 +5,4 @@
(when (string= system-name "LATTE")
(setq inferior-octave-program "C:\\octave\\Octave3.6.1_gcc4.6.2\\bin\\octave.exe")
)
+(setq transient-mark-mode t)
View
2  setup-gud-mode.el
@@ -20,7 +20,7 @@
(local-set-key [f2] 'gud-cont)
(local-set-key [f12] 'gud-step)
(local-set-key [f10] 'gud-next)
- (local-set-key [(shift f11)] 'gud-finish)
+ (local-set-key [f11] 'gud-finish)
(local-set-key [(control f10)] 'my-gud-run-to-cursor)
(local-set-key [f9] 'gud-break)
(local-set-key [(shift f9)] 'gud-remove))
View
8 setup-isearch.el
@@ -1,6 +1,14 @@
(require 'isearch+)
(setq isearchp-set-region-flag nil) ; i like t, but need it to restore state after i move or it's unusable
(require 'misc-cmds)
+(defun isearchp-set-region ()
+ "Set region around search target, if `isearchp-set-region-flag'.
+Used only for Transient Mark mode."
+ (when (and isearchp-set-region-flag transient-mark-mode)
+ (push-mark isearch-other-end t 'activate)))
+
+(add-hook 'isearch-mode-end-hook 'isearchp-set-region)
+
(provide 'setup-isearch)
View
4 snippets/c++-mode/namespace-hg.yasnippet
@@ -2,6 +2,6 @@
# name: namespace hypergraph
# key: nh
# --
-namespace LW { namespace Hypergraph {
+namespace LW { namespace xmt { namespace Hypergraph {
$0
-}}//ns
+}}}
View
7 snippets/c++-mode/namespace-xmt.yasnippet
@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: namespace hypergraph
+# key: nx
+# --
+namespace LW { namespace xmt {
+$0
+}}
Please sign in to comment.
Something went wrong with that request. Please try again.