Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
cmucl
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package Registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Carl Shapiro
cmucl
Commits
8080abe8
Commit
8080abe8
authored
33 years ago
by
ram
Browse files
Options
Downloads
Patches
Plain Diff
Changed hemlock init file loading to accept .hemlock-init as well as
hemlock-init. Fixed ED doc string.
parent
27f30447
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
hemlock/main.lisp
+24
-23
24 additions, 23 deletions
hemlock/main.lisp
with
24 additions
and
23 deletions
hemlock/main.lisp
+
24
−
23
View file @
8080abe8
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/main.lisp,v 1.
8
1991/10/
04
1
7
:1
8:47 chiles
Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/main.lisp,v 1.
9
1991/10/
17
1
6
:1
2:27 ram
Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -255,15 +255,15 @@
&key
(
init
t
)
(
display
(
cdr
(
assoc
:display
ext:*environment-list*
))))
"Invokes the editor, Hemlock. If X is supplied and is a symbol, the
definition of X is put into a buffer, and that buffer is selected. If X
is
a pathname, the file specified by X is visited in a new buffer. If X
is not
supplied or Nil, the editor is entered in the same state as when
last
exited. When :init is supplied as t (the default), the file
\"hemlock-init.
fasl
\" or \"hemlock-init.lisp\" is loaded from the home
or
default
directory, but the Lisp command line switch -hinit can be used to
specify a
different name.
If the argument is non-nil and not t, then it
should be a pathname that will be merged with the home or default directory.
The display argument is not currently supported
."
definition of X is put into a buffer, and that buffer is selected. If X
is
a pathname, the file specified by X is visited in a new buffer. If X
is not
supplied or Nil, the editor is entered in the same state as when
last
exited. When :init is supplied as t (the default), the file
\"hemlock-init.
lisp
\"
,
or \"
.
hemlock-init.lisp\" is loaded from the home
directory, but the Lisp command line switch -hinit can be used to
specify a
different name.
Any compiled version of the source is preferred when
choosing the file to load. If the argument is non-nil and not t, then it
should be a pathname that will be merged with the home directory
."
(
when
*in-the-editor*
(
error
"You are already in the editor, you bogon!"
))
(
let
((
*in-the-editor*
t
)
(
display
(
unless
*editor-has-been-entered*
...
...
@@ -313,19 +313,20 @@
(
defun
maybe-load-hemlock-init
(
init
)
(
when
init
(
let*
((
name
(
case
init
((
t
)
(
let
((
switch
(
find
"hinit"
*command-line-switches*
:test
#'
string-equal
:key
#'
cmd-switch-name
)))
(
if
switch
(
or
(
cmd-switch-value
switch
)
(
car
(
cmd-switch-words
switch
))
"hemlock-init"
)
"hemlock-init"
)))
(
t
(
pathname
init
)))))
(
load
(
merge-pathnames
name
(
user-homedir-pathname
))
:if-does-not-exist
nil
))))
(
let*
((
switch
(
find
"hinit"
*command-line-switches*
:test
#'
string-equal
:key
#'
cmd-switch-name
))
(
spec-name
(
if
(
not
(
eq
init
t
))
init
(
and
switch
(
or
(
cmd-switch-value
switch
)
(
car
(
cmd-switch-words
switch
)))))))
(
if
spec-name
(
load
(
merge-pathnames
spec-name
(
user-homedir-pathname
))
:if-does-not-exist
nil
)
(
or
(
load
"home:hemlock-init"
:if-does-not-exist
nil
)
(
load
"home:.hemlock-init"
:if-does-not-exist
nil
))))))
;;;; SAVE-ALL-BUFFERS.
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment