Commit 55a889f2 authored by David Byers's avatar David Byers
Browse files

Eliminate warnings in XEmacs.

Detailed changes:
> 	Clean up for XEmacs:
> 	* lyskom-rest.el (lyskom-startup-check-recommended-memberships):
> 	Don't bind pers-stat. It's not used.
> 	(smiley-region): Don't bind plaintext. It's not used.
> 	(lyskom-fill-message): Suppress warning about variable timer.
>
> 	* defvar.el (def-kom-var): Don't ever do a null doc-string. XEmacs
> 	will complain quite loudly.
>
parent d49b78fa
2004-02-22 David Byers <byers@lysator.liu.se>
Clean up for XEmacs:
* lyskom-rest.el (lyskom-startup-check-recommended-memberships):
Don't bind pers-stat. It's not used.
(smiley-region): Don't bind plaintext. It's not used.
(lyskom-fill-message): Suppress warning about variable timer.
* defvar.el (def-kom-var): Don't ever do a null doc-string. XEmacs
will complain quite loudly.
Fix bug 1125:
* commands1.el (lyskom-read-cross-reference-and-get-aux-item): Use
lyskom-a-or-b-or-c-p instead of completing-read.
......
......@@ -252,6 +252,8 @@ language-force A language-variable whose value is to be forced."
(car arglist))))
(setq arglist (cdr arglist)))
(if (null doc-string) (setq doc-string "This variable is not documented."))
(if doc-string
(if
(if (or local-var-doc local-hook-doc)
......@@ -271,7 +273,6 @@ This variable is normally stored on a per-session basis in the
LysKOM server, but can be set in your .emacs simply by setting
it using setq or defvar.")))
(` (progn (dont-compile (if (and (boundp (quote (, name)))
(or (not (boundp lyskom-is-loaded))
(not lyskom-is-loaded))
......
......@@ -780,8 +780,7 @@ by PERS-NO"
;; that we have not rejected and that we are not already members
;; of.
(blocking-do-multiple ((pers-conf-stat (get-conf-stat lyskom-pers-no))
(pers-stat (get-pers-stat lyskom-pers-no)))
(let ((pers-conf-stat (blocking-do 'get-conf-stat lyskom-pers-no)))
(lyskom-traverse rec recommendations
(let ((conf-stat (blocking-do 'get-conf-stat (elt rec 0))))
(when conf-stat
......@@ -2127,7 +2126,6 @@ Deferred insertions are not supported."
(symbol-name (car el)))
content-type))
(lyskom-traverse-break el)))))))
(plaintext (eq fn t))
(formatted (and fn (funcall fn text text-stat))))
(or formatted text)))
......@@ -2426,6 +2424,8 @@ in lyskom-messages."
(fill-prefix nil)
(single-line-regexp "\\(\\S-\\)"))
(lyskom-ignore timer)
;;
;; Scan each line
;;
......
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