ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove unused functions

Browse source
This commit is contained in:
Tom Willemse 2015-12-17 01:26:04 +01:00
parent ea35825e1d
commit bc6c5394ac
1 changed files with 0 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
emacs/.emacs.d/init.el
View file

@ -137,22 +137,10 @@ MODE1 is enabled and vice-versa."
;;;; Functions ;;;; Functions
(defun oni:current-jabber-status ()
"Return a string representing the current jabber status."
(or (and (not *jabber-connected*) "Offline")
(and (not (string= *jabber-current-status* ""))
*jabber-current-status*)
"Online"))
(defun oni:enable (functions) (defun oni:enable (functions)
"Set the `disabled' property for each item in FUNCTIONS to nil." "Set the `disabled' property for each item in FUNCTIONS to nil."
(mapc #'(lambda (f) (put f 'disabled nil)) functions)) (mapc #'(lambda (f) (put f 'disabled nil)) functions))
(defun oni:level (lst)
"Reduce a 2-level list LST to a flat list."
(let ((lsts (mapcar (lambda (l) (if (listp l) l (list l))) lst)))
(apply #'append lsts)))
(defun oni:locally-enable-double-spaces () (defun oni:locally-enable-double-spaces ()
"Specify that two spaces end a sentence in the current buffer." "Specify that two spaces end a sentence in the current buffer."
(setq-local sentence-end-double-space t)) (setq-local sentence-end-double-space t))