Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4596901f
Commit
4596901f
authored
Aug 31, 2007
by
Glenn Morris
Browse files
James Wright <james at chumsley.org>
(eshell/info): New function.
parent
9fe97f9c
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
35 additions
and
0 deletions
+35
-0
etc/NEWS
etc/NEWS
+2
-0
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/eshell/em-unix.el
lisp/eshell/em-unix.el
+29
-0
No files found.
etc/NEWS
View file @
4596901f
...
...
@@ -191,6 +191,8 @@ on the corresponding remote system.
and C-x C-q in wdired-mode exits it with asking a question about
saving changes.
*** The new command `eshell/info' runs info in an eshell buffer.
* Changes in Emacs 23.1 on non-free operating systems
...
...
lisp/ChangeLog
View file @
4596901f
2007-08-31 James Wright <james@chumsley.org>
* eshell/em-unix.el (eshell/info): New function.
2007-08-31 Stefan Monnier <monnier@iro.umontreal.ca>
* frame.el (frame-initialize, make-frame):
...
...
lisp/eshell/em-unix.el
View file @
4596901f
...
...
@@ -168,6 +168,35 @@ Otherwise, Emacs will attempt to use rsh to invoke du on the remote machine."
(
put
'eshell/man
'eshell-no-numeric-conversions
t
)
(
defun
eshell/info
(
&rest
args
)
"Runs the info command in-frame with the same behaviour as command-line `info', ie:
'info' => goes to top info window
'info arg1' => IF arg1 is a file, then visits arg1
'info arg1' => OTHERWISE goes to top info window and then menu item arg1
'info arg1 arg2' => does action for arg1 (either visit-file or menu-item) and then menu item arg2
etc."
(
require
'info
)
(
let
((
file
(
cond
((
not
(
stringp
(
car
args
)))
nil
)
((
file-exists-p
(
expand-file-name
(
car
args
)))
(
expand-file-name
(
car
args
)))
((
file-exists-p
(
concat
(
expand-file-name
(
car
args
))
".info"
))
(
concat
(
expand-file-name
(
car
args
))
".info"
)))))
;; If the first arg is a file, then go to that file's Top node
;; Otherwise, go to the global directory
(
if
file
(
progn
(
setq
args
(
cdr
args
))
(
Info-find-node
file
"Top"
))
(
Info-directory
))
;; Treat all remaining args as menu references
(
while
args
(
Info-menu
(
car
args
))
(
setq
args
(
cdr
args
)))))
(
defun
eshell-remove-entries
(
path
files
&optional
top-level
)
"From PATH, remove all of the given FILES, perhaps interactively."
(
while
files
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment