Commit 57e7460a authored by David Byers's avatar David Byers
Browse files

Checked in some missing functions.

Detailed changes:
> 2006-04-03  David Byers  <davby@ida.liu.se>
>
> 	* lyskom-buttons.el (lyskom-button-befriend): New function
> 	(i guess jhs forgot to check it in).
> 	(lyskom-button-moronify): New function (i guess jhs forgot to
> 	check it in).
>
parent 7675e888
2006-04-03 David Byers <davby@ida.liu.se>
* lyskom-buttons.el (lyskom-button-befriend): New function
(i guess jhs forgot to check it in).
(lyskom-button-moronify): New function (i guess jhs forgot to
check it in).
2006-03-31 David Byers <davby@ida.liu.se>
* menus.el (lyskom-menu-template): Added kom-review-more-comments
......
......@@ -882,6 +882,24 @@ This is a LysKOM button action."
(goto-char (point-max))
(kom-status-person arg))))
(defun lyskom-button-befriend (buf arg text)
"In the LysKOM buffer BUF, befriend person ARG.
Last argument TEXT is ignored.
This is a LysKOM button action."
(cond ((not (integerp arg)) nil)
(t (pop-to-buffer buf)
(goto-char (point-max))
(kom-befriend arg))))
(defun lyskom-button-moronify (buf arg text)
"In the LysKOM buffer BUF, befriend person ARG.
Last argument TEXT is ignored.
This is a LysKOM button action."
(cond ((not (integerp arg)) nil)
(t (pop-to-buffer buf)
(goto-char (point-max))
(kom-moronify arg))))
(defun lyskom-button-mail (buf arg text)
"In the LysKOM buffer BUF, send mail to the conference ARG.
Last argument TEXT is ignored.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment