Commit 18a56710 authored by David Byers's avatar David Byers
Browse files

Minor cleanup. Early prepare for distribution.

parent b72b46f6
Thu Jul 3 11:13:03 1997 David Byers <davby@ida.liu.se>
* compatibility.el: Inga meddelanden.
(lyskom-compatibility-definition): Dito. Fixade en bug.
* commands1.el (lyskom-nameday): Anvnd lyskom-butlast.
* utilities.el (lyskom-butlast): Nu funktion.
(lyskom-nbutlast): Ny funktion.
Wed Jul 2 15:35:16 1997 David Byers <davby@ida.liu.se>
* swedish-strings.el,english-strings.el: Synkade alla strngar.
......
......@@ -261,6 +261,10 @@ The created buffer is made a child of the current buffer."
(progn (setq buffer (car buffers))
(save-excursion (set-buffer buffer)
(let ((inhibit-read-only t))
;;; +++ FIXME: This is that erase-buffer works if there are widgets
(setq before-change-functions
(delq 'widget-before-change
before-change-functions))
(erase-buffer))
(kill-all-local-variables)
(if (equal (buffer-name (current-buffer))
......
......@@ -1908,7 +1908,7 @@ If MARK-NO == 0, review all marked texts."
(lyskom-format "%#1s och %#2s har namnsdag i dag."
(elt dlist 0) (elt dlist 1)))
(t (format "%s och %s har namnsdag i dag."
(mapconcat 'identity (butlast dlist 1) ", ")
(mapconcat 'identity (lyskom-butlast dlist 1) ", ")
(elt dlist (1- (length dlist))))))))
......
......@@ -72,18 +72,18 @@ similar to defun or defmacro.
To simply define a function if it is not already defined, used one
of the lyskom-provide-* functions instead."
(` (progn (eval-when-compile
(if (not (, predicate))
(message "Compatibility %S for %S"
(quote (, (car definition)))
(quote (, (car (cdr definition))))))
(` (progn ;(eval-when-compile
; (if (not (, predicate))
; (message "Compatibility %S for %S"
; (quote (, (car definition)))
; (quote (, (car (cdr definition)))))))
(eval-and-compile
(if (not (, predicate))
(progn
(, definition)
(setq lyskom-compatibility-definitions
(cons (quote (, (car (cdr definition))))
lyskom-compatibility-definitions)))))))))
lyskom-compatibility-definitions))))))))
;;; ============================================================
......@@ -96,11 +96,11 @@ of the lyskom-provide-* functions instead."
;;;
(defmacro lyskom-provide (definer name rest)
(` (progn (eval-when-compile
(if (not (fboundp (quote (, name))))
(message "Compatibility %S for %S"
(quote (, definer))
(quote (, name)))))
(` (progn ;(eval-when-compile
; (if (not (fboundp (quote (, name))))
; (message "Compatibility %S for %S"
; (quote (, definer))
; (quote (, name)))))
(eval-and-compile
(if (not (fboundp (quote (, name))))
(progn
......
No preview for this file type
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