Changeset 32664 in project


Ignore:
Timestamp:
08/08/15 02:38:30 (4 years ago)
Author:
Alexej Magura
Message:

4.1.1 punks

Location:
release/4/readline/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/readline/trunk/readline.scm

    r32660 r32664  
    123123#include "readline-egg.c"
    124124
     125/* OBSOLETE, DERP! */
    125126C_regparm C_word C_enumerate_symbols(C_SYMBOL_TABLE *stable, C_word pos)
    126127{
     
    189190                  #:record-history #t
    190191                  #:verify-history-expansions #f))
    191 (define version "4.1.0")
     192(define version "4.1.1")
    192193#|/////////////////////////////////|#
    193194;;;; Private Variables
     
    358359      ((2) "> ")
    359360      (else (conc (make-string (- len 2) #\-) "> ")))))
    360 
    361361
    362362;; Creates a port that reads using readline
     
    633633                                                str-2))
    634634
    635 (toplevel-command 'rl-clh (lambda ()
     635(toplevel-command 'h-clear (lambda ()
    636636                            (readline#clear-history))
    637                   (pad ",rl-clh" "Clear this session's history"))
    638 
    639 (toplevel-command 'rl-savhist (lambda ()
     637                  ",h-clear          Clear this session's history")
     638
     639(toplevel-command 'h-save (lambda ()
    640640                                (let ((value (getkv readline#session #:save-history-on-exit)))
    641641                                  (and (setkv! readline#session #:save-history-on-exit (not value))
    642642                                       (not value))))
    643                   ",rl-savhist       Enable/disable saving this session's history on exit (enabled by default)")
    644 
    645 (toplevel-command 'rl-rec (lambda ()
     643                  (pad ",h-save" "Enable/disable saving this session's history on exit (default: on)"))
     644
     645(toplevel-command 'h-rec (lambda ()
    646646                            (let ((value (getkv readline#session #:record-history)))
    647647                              (and (setkv! readline#session #:record-history (not value))
    648648                                   (not value))))
    649                   (pad ",rl-rec" "Enable/disable recording history for this session (enabled by default)"))
    650 
    651 (toplevel-command 'rl-rd (lambda ()
     649                  (pad ",h-rec" " Enable/disable recording history for this session (default: on)"))
     650
     651(toplevel-command 'h-load (lambda ()
    652652                           (readline#read-history (irregex-replace/all
    653653                                                   "~"
    654654                                                   (read-line)
    655655                                                   (get-environment-variable "HOME"))))
    656                   (pad ",rl-rd" " Read history file into this session"))
    657 
    658 (toplevel-command 'rl-!! readline#eval-last-history-line)
    659 
    660 (toplevel-command 'rl-vi (lambda ()
    661                            (readline#parse-and-bind "set editing-mode vi")))
    662 
    663 (toplevel-command 'rl-emacs (lambda ()
    664                               (readline#parse-and-bind "set editing-mode emacs")))
     656                  (pad ",h-load" "Read history file into this session"))
     657
     658(toplevel-command '!! readline#eval-last-history-line
     659                  ",!!               Evaluate the previous history entry")
     660
     661(toplevel-command 'vi-mode (lambda ()
     662                             (readline#parse-and-bind "set editing-mode vi"))
     663                  ",vi-mode          Turn on Vi editing mode")
     664
     665(toplevel-command 'emacs-mode (lambda ()
     666                                (readline#parse-and-bind "set editing-mode emacs"))
     667                  ",emacs-mode       Turn on Emacs editing mode")
     668
    665669; TODO add rl-history-grep
    666670;(toplevel-command 'rl-hgrp
  • release/4/readline/trunk/readline.setup

    r32660 r32664  
    8585    'readline
    8686    '("readline.so" "readline.import.so" "readline-static.o")
    87     `((version           "4.1.0")
     87    `((version           "4.1.1")
    8888      (static            "readline-static.o")
    8989      (static-options    ,rl-extralib)))
Note: See TracChangeset for help on using the changeset viewer.