mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
*** empty log message ***
This commit is contained in:
parent
3b4a6e271d
commit
49116ac071
65 changed files with 923 additions and 369 deletions
|
|
@ -57,8 +57,6 @@
|
|||
;;; this or changing the syntax to ... ,(<form>). RMS: opinion?
|
||||
|
||||
|
||||
(provide 'backquote)
|
||||
|
||||
;;; a raft of general-purpose macros follows. See the nearest
|
||||
;;; Commonlisp manual.
|
||||
(defmacro bq-push (v l)
|
||||
|
|
@ -353,3 +351,6 @@ for making the list so far."
|
|||
(defun bq-splicenil (form)
|
||||
(setq state 'append
|
||||
tailmaker (list form)))
|
||||
|
||||
(provide 'backquote)
|
||||
|
||||
|
|
|
|||
|
|
@ -46,8 +46,6 @@
|
|||
;; June 20, 1986
|
||||
;;
|
||||
|
||||
(provide 'float)
|
||||
|
||||
;; fundamental implementation constants
|
||||
(defconst exp-base 2
|
||||
"Base of exponent in this floating point representation.")
|
||||
|
|
@ -446,3 +444,6 @@ are recognized."
|
|||
(funcall func exponent (aref powers-of-10 tens)))))
|
||||
|
||||
_f0)) ; if invalid, return 0
|
||||
|
||||
(provide 'float)
|
||||
|
||||
|
|
|
|||
|
|
@ -21,7 +21,7 @@
|
|||
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
|
||||
|
||||
(provide 'helper) ; hey, here's a helping hand.
|
||||
; hey, here's a helping hand.
|
||||
|
||||
;; Bind this to a string for <blank> in "... Other keys <blank>".
|
||||
;; Helper-help uses this to construct help string when scrolling.
|
||||
|
|
@ -147,3 +147,4 @@
|
|||
(ding)
|
||||
(setq continue nil))))))
|
||||
|
||||
(provide 'helper)
|
||||
|
|
@ -17,8 +17,6 @@
|
|||
;; along with GNU Emacs; see the file COPYING. If not, write to
|
||||
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
|
||||
(provide 'lisp-mode)
|
||||
|
||||
(defvar lisp-mode-syntax-table nil "")
|
||||
(defvar emacs-lisp-mode-syntax-table nil "")
|
||||
(defvar lisp-mode-abbrev-table nil "")
|
||||
|
|
@ -613,3 +611,6 @@ means don't indent that line."
|
|||
(progn
|
||||
(forward-line 1) (point))
|
||||
nil nil state))))))
|
||||
|
||||
(provide 'lisp-mode)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue