Last edit
Changed: 5c5
< * AbbrevMode (wish this would obey indenting somehow)
to
> * AbbrevMode (wish this would obey indenting somehow) (i added this AbbrevModeOpenOffice)
I am Gabriel Millerd <gmillerd/at/qualhost/dot/com> … I really get a lot of use out of emacs.
Currently i use:
emacs-nox on OSX and Linux
someday i will get this working better, its sort of unstable for me
wish this would work better. its a disaster in cperl-mode looks like ‘the matrix’ sometime.
cannot seem to get this to work for <tab>, everything says it should be however when i display my bindings. The document TabKey didnt help.
(defun indent-or-complete ()
"Complete if point is at end of a word, otherwise indent line."
(interactive)
(if (looking-at "\\>")
(dabbrev-expand nil)
(indent-for-tab-command)
))
(global-set-key (kbd "<tab>") 'indent-or-complete)
(local-set-key (kbd "<tab>") 'indent-or-complete) i use this function quite a bit (nxml/cperl)
(defun sexup ()
"make text pretty"
(interactive)
(save-excursion
(goto-char (point-min))
(while (re-search-forward "[ \t]+$" nil t)
(delete-region (match-beginning 0) (match-end 0)))
(goto-char (point-min))
(while (re-search-forward "^[ \t]+" nil t)
(delete-region (match-beginning 0) (match-end 0)))
(indent-region (point-min) (point-max) nil)
(goto-char (point-min))
(if (search-forward "\t" nil t)
(untabify (1- (point)) (point-max)))
(exchange-point-and-mark)
)
)
(global-set-key "\M-i" 'sexup)